Câu 2:

Program dien_tích_tamgiac;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien tich tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

 mik chỉ làm dc câu 2 thôi

1.

Program CT_TinhDTTG;
uses crt;
var canh, ccao: integer;
begin
canh:=7;
ccao:=6;
clrscr;
writeln('Tam giac co do dai canh la 7, chieu cao la 6 co dien tich: ', (canh*ccao)/2, ' m^2');
readln;

end.

2.

Program CT_TinhDTTG2;

uses crt;

var canh, ccao: integer;

begin

 writeln('Nhap do dai canh cua tam giac:');

 readln(canh);

 writeln('Nhap chieu cao cua tam giac:');

 readln(ccao);

 clrscr;

 writeln('Tam giac co do dai canh la ', canh ,' chieu cao la ',ccao,' co dien tich: ', (canh*ccao)/2, ' m^2');

 readln();

end.