$\text{Program KTCK1_ten_lop_bai2.pas;}$

$\text{uses crt;}$

$\text{var hd , h , w : integer;}$

$\text{begin}$

$\text{clrscr;}$

$\text{write('nhap h ='); readln(h);}$

$\text{write('nhap w ='); readln(w);}$

$\text{write('gia tri ban dau cua h = ',h,' va ' w = ',w);}$

$\text{hd:=w;}$

$\text{w:=h;}$

$\text{h:=hd;}$

$\text{writeln;}$

$\text{writeln('gia tri cua h va w sau khi hoan doi la h =',h,' va w =',w);}$

$\text{readln;}$

$\text{end.}$
#kensou2k8_Aquatic World}$

Program baitap;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

c:=a;

a:=b;

b:=c;

Writeln('Sau khi hoan doi:');

Writeln('a=',a);

Writeln('b=',b);

Readln

End.

__________________________________________

Cách lưu:

Chọn File `->` Save `->` Lưu tên như đề đã yêu cầu