program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

Câu 2:

program cau_2;

var a,b:longint;

uses crt;

begin

clrscr;

write('Nhap so a: '); readln(a);

write('Nhap so b: '); readln(b);

if a > b then write('a lon hon b');

if a < b then write('a be hon b');

if a = b then write('a bang b');

readln;

end.

#Phuong

câu 1: 

program bai_giai;

uses crt;

var a,b,h:longint;a:real;

begin

clrscr;

write('nhap day lon, day be:');readln(a,b);

write('nhap chieu cao:');readln(h);

s:=((a+b)*h)/2;

write('dien tich hinh thang do la:',s);

readln;

end.

câu 2:

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

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

if(a>b)then(' a lon hon b')else write('b hon hon a');

readln

end.