Даны числа a и b найти разницу между ними. с клавиатуры водится 2 числа определить большее и на сколько оно большое.

Program abc;
uses crt;
var a,b:integer;
begin
readln(a,b);
if a>b then writeln(,a,' > ',b,' на ',a-b)
else writeln(,a,' < ',b,' на ',b-a);
end.