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.

Câu 10: Var x,y:real;

Câu 11: uses crt;
var a,b,c,d:longint;
begin
clrscr;
   write('a,b,c,d=');Readln(a,b,c,d);
   writeln('Chu vi: ',a+B+C+D);
   writeln('Dien tich: ',(1/2)*4*(a+b):0:2);
readln
end.