giải giúp em tin 8 với ạ

bai 3

a) input:độ dài cạnh a, chiều cao h

    output:diện tích hình tam giác

MÔ TẢ

B1:nhập độ dài a và chiều cao h

B2:dientich<-a*h/2

B3:in giá trị biến dientich ra màn hình

B4 kết thúc chương trình

b)

 var a,h,dientich:real

begin

 writeln('nhap lan luot do dai canh a va chieu cao h');readln(a,h);

 dientich:=a*h/2;

 writeln('dien tich tam giac do la:',dientich);

readln;

end.