1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4.

var

numbers, sum_of_numbers, mult_of_numbers:integer;

begin

for i:integer:=14 to 99 do

begin

Проверяем числа от 14 до 99 на кратность 4, то есть остаток от деления на 4 будет равен нулю:

if i mod 4 = 0 then

Наращиваем переменную для суммы:

sum_of_numbers:=sum_of_numbers+i

end;

mult_of_numbers:=1;

for i:integer:=14 to 99 do

begin

if i mod 4 = 0 then

begin

Увеличиваем переменную для произведения:

mult_of_numbers:=mult_of_numbers*i;

end; end;

Выводим на экран два числа:

writeln ('Число А: ', sum_of_numbers);

writeln ('Число B: ', mult_of_numbers);

end.