program HoanDoiGiaTriHaiSo;
uses Crt;
var x, y, c : integer;
begin
clrscr;
write('nhap so x :'); readln(x);
write('nhao so y :'); readln(y);
if x < y then
begin
c:= x;
x := y;
y := c;
writeLn('gia tri cua x la :', x);
writeLn('gia tri cua y la :', y);
writeLn('phan du cua y chia x la :', y mod x);
readln;
end
else
writeLn('gia tri cua x la :', x);
writeLn('gia tri cua y la :', y);
readln
end.