1) Найдите сумму и творенье целых чисел огромных 13 и наименьших

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.