составьте программу которая запрашивает два числа и выводит меньшее из их суммы и произведения

var   Count, Proizv, n, m, i: integer; begin   Proizv:=1;   write('Введите интервал [n, m]: ');   readln(n, m);   write('Числа из интервала [', n, ', ', m, ']: ');   for i:=n to m do   begin     write(i, ' ');     if i mod 4 = 0 then     begin       Proizv:=Proizv*i;       inc(Count);     end;   end;   writeln;   writeln('Кол-во чисел кратные 4: ', Count);   writeln('Их произведение: ', Proizv); end.