Program programma; Uses crt; var x,y,r: integer; Begin clrscr; write('x = '); readln(x); write('y = '); readln(y); r:=abs(x-y); writeln('Modul r = ', r); readln; end.