Вывод результата сопроводите пояснениями.
Ответы:
uses crt,
var a,b:integer,
begin
writeln(введите первое число),
readln(a),
writeln(введите второе число),
readln(b),
if a>,b then writeln(a-b, первое число больше второго),
if a<,b then writeln(b-a, второе число больше первого),
if a=b then writeln(0 оба числа равны),
end.