ПОМОГИТЕ!!!!!
Написать алгоритм в виде программы Паскаль для вывода на экран произведения целых чисел от 25 до 255

var a, i: integer;

Begin

a := 1;

for i:=25 to 255 do

a := a × i;

writeln(a)

end.