БЛЛЛИНН помогите пожалуйста!!!!!Задача. вывести ** экран произведение чисел в диапазоне...

Question

БЛЛЛИНН помогите пожалуйста!!!!!Задача. вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while.

Answer 1

program pr;

var s,a:integer;

begin

s:=1;

a:=5;

while a<=20 do</p>

begin

a:=a+3;

s:=s*a;

end;

writeln(s);

readln;

end.