* viết chương trình để in ra màn hình nội dung sau : '' lop 8 truong THCS an le ''
uses crt;
begin
clrscr;
write ('lop 8 truong THCS an le');
readln;
end.
* viết chương trình tính diện tích tam giác biết đường cao và độ dài tương ứng là các số tự nhiên .
uses crt;
var a,h: integer;
begin
clrscr;
write ('Nhap duong cao h: '); readln(h);
writeln ('Nhap canh a : '); readln(a);
write ('Dien tich tam giac la: , 1/2 * a *h);
readln;
end.