Bài 1:
program s_hinh_vuong;
uses crt;
var a, s: integer;          {Đoạn này ở trên mình bị nhầm kiểu dữ liệu nhé}
begin
clrscr;
write ('Nhap canh hinh vuong ='); readln (a);
s := sqr (a);
write ('Dien tich hinh vuong la:', s:6:2);
readln;
end.

Bài 2:
Uses    crt;
Var     x,y,tam: integer;
Begin
    clrscr;
    write('x = ');
    readln(x);
    write('y = ');
    readln(y);
    tam:=x;
    x:=y;
    y:=tam;
    writeln('gia tri 2 bien sau khi doi la: ');
    writeln('x = ',x,' , y = ',y);
    readln;
End.