Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.

Program asd;

uses crt;

var n, m, min:integer;

r:real;

begin

Write ('Введите число n: ') ;

Readln (n) ;

Write ('Введите число m: ') ;

Readln (m) ;

If n>m then

min:=m

else

min:=n;

If (n>100) and (m>100) then

begin

n:=min;

m:=min;

Writeln ('n = ', n,' m = ', m) ;

end;

If (n>0) and (m<0) then

Writeln ('n = ', n/2,' m = ', m/2)

else

r: = (n+m) / 2;

Writeln ('Среднее арифм. : ', r) ;

end.