Найти творенье и сумму чисел огромных 100 и наименьших 200 и

program zz1;

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

begin

p:=1;s:=0;

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

begin

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

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

end;

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

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

p:=1;s:=0;

i:=100;

while ilt;=200 do

begin

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

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) // проверяем условие, если число кратное 5, то

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

i:=i+1;

until igt;200;

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

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

end.