Program comparison;
var
a,b,c:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
begin
c:=a-b;
write ('Первое число больше второго на ', c);
end;
if a
begin
c:=b-a;
write ('Второе число больше первого на ', c);
end;
if a=b then
write ('Числа равны');
end.