program prim;
uses crt;
var
a,b,r: integer;
begin
clrscr;
writeln ('ввести два числа');
readln (a,b);
if a>b then
r:=a-b;
end
else
r:=b-a;
end;
writeln ('r=', r:5);
readkey;
end.
