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.