Найти произведение и сумму чисел больших 100 и меньших 200 и кратных 5 на языке программирования Pascal. Следующими способами: While, For, Repeat.

program zz1;

var i, s, p:integer; / / задаем переменные целого типа

begin

p:=1; s:=0;

for i:=100 to 200 do / / организуем цикл, в котором переберем все числа от единицы до тысячи

begin

if (i mod 5 = 0) / / проверяем условие, если число кратное пяти, то

then begin s:=s + i; p:=p * i; end; / / получаем сумму и произведение

end;

writeln (' произведение чисел = ', p); / / выводим ответ

writeln (' сумма чисел = ', s);

p:=1; s:=0;

i:=100;

while i<=200 do

begin

if (i mod 5 = 0) / / проверяем условие, если число кратное пяти, то

then begin s:=s + i; p:=p * i; end; / / получаем сумму и произведение

i:=i+1;

end;

writeln (' произведение чисел = ', p); / / выводим ответ

writeln (' сумма чисел = ', s);

p:=1; s:=0;

i:=100;

repeat

if (i mod 5 = 0) / / проверяем условие, если число кратное пяти, то

then begin s:=s + i; p:=p * i; end; / / получаем сумму и произведение

i:=i+1;

until i>200;

writeln (' произведение чисел = ', p); / / выводим ответ

writeln (' сумма чисел = ', s);

end.