Вычислить значение выражения - Pascal ABC (14097)

P= (31 П i=5)ctg(i+"пи")

Листинг программы

var i:integer;
    p:real;
begin
p:=1;
for i:=5 to 31 do
p:=p*cos(i+pi)/sin(i+pi);
write('P=',p:0:4);
end.

Объяснение кода листинга программы

Объявляются две переменные: i и p, обе целочисленного типа.
Переменная p инициализируется значением 1.
Запускается цикл for, который выполняется от 5 до 31 (включительно).
Внутри цикла переменная i увеличивается на 1.
Вычисляется значение выражения p*cos(i+pi)/sin(i+pi).
Значение выражения записывается в переменную p.
После завершения цикла, значение переменной p записывается в файл с помощью функции write.
Программа завершается.