Viết chương trình nhập vào cạnh đáy và đường cao của 1 tam giác. Tính diện tivsh tam giác A. Vẽ sơ đồ khối B. Lập trình

* Chương trình:

program kaito;

uses crt;

var s, a, h: real;

begin

   clrscr;

   write('Nhap canh day: '); readln(a);

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

   if (a<=0) or (h<=0) then writeln('khong hop le!') else

   s:=(a*h)/2;

   writeln('Dien tich tam giac la: ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!

a) sơ đồ khối như hình

b)

uses crt;
var a,h:extended;
begin
clrscr;
   write('Nhap canh day, chieu cao: '); readln(a,h);
   writeln('Dien tich: ',a*h/2:0:2);
readln
end.