program HoanDoiGiaTriHaiSo;
uses Crt;
var x, y , c :integer;   
begin
clrscr;
write('nhap so nguyen x :');readln(x);

write('nhap so nguyen y :');readln(y); 

writeln('phep chia lay phan nguyen cua x va y la :', x div y);

writeln('phep chia lay phan du cua x va y la :', x mod y);

c := x; 
x := y; 
y := c;   

writeln('gia tri cua x sau khi hoan doi la :', x);

writeln('gia tri cua y sau khi hoan doi la :', y);

readln

end.

uses crt;

var x,y,z,S,P:integer;

begin

write('nhap x: ');readln(x);

write('nhap y: ');readln(y);

S:=x div y;

P:=x mod y;

writeln('Chia lay phan nguyen cua x,y la: ',S);

writeln('Chia lay phan du cua x,y la: ',P);

x:=y;

y:=z;

z:=x;

writeln(x);

writeln(y);

readln;

end.