Viết chương trình tính diện tích hình A: (ko có hình)

Viết chương trình hoán đổi giá trị 2 biến x, y:

program ct;
uses crt;
var x,y,x2: integer;
begin
    clrscr;
    writeln('Nhap x, y:'); readln(x, y);
    x2:=x;x:=y;y:=x2;
    writeln('x = ',x,' ; y = ',y);
    
    readln;
end.

Câu 1 :

uses crt;

var x, y : integer;

begin

clrscr;

write('nhap hai so x va y : ');readln(x, y);

x := x + y;

y := x - y;

x := x - y;

writeln('x = ', x);

writeln('y = ', y);

readln

end.

Câu 2 :

uses crt;

var s1, s2, b, a, s : real;

begin

clrscr;

write('nhap hai canh a, b : ');readln(a, b);

s1 := 2 * a * b;

s2 := (a * a * 3.14) / 2;

s := s1 + s2;

writeln('dien tich hinh a : ', s:2:1);

readln

end.