Question

Решить задачу. Пользователь вводит 2 числа, вывести на экран максимальное и минимальное из этих 2 чисел. Если числа равны, вывести на экран "a=b".

Answer 1

Var a,b:integer;
begin 
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else 
begin
if (a>b) then writeln('max=',a,' min=', b) else 
writeln ('max=',b, ' min=', a)  
end;
readln;
end.