Объяснение:
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.
Объяснение:
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.