Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.