Câu 10:
var x: integer;
y: real;
Câu 11:
uses crt;
var s, cv, a, b, h, x, y: real;
begin
clrscr;
write('Nhap a=: '); readln(a);
write('Nhap b=: '); readln(b);
write('Nhap x=: '); readln(x);
write('Nhap y=: '); readln(y);
h:=4;
s:=(x+y)/2*h;
cv:=a+b+x+y;
clrscr;
writeln(' Goi 2 day cua hinh thang la x va y');
writeln('Dien tich hinh thang la: ', s);
writeln('Chu vi hinh thang la: ', cv);
readln
end.
