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

writeln ('max=',b, ' min=', a) else тут else лишнее...

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