* 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.

*

program ct;

uses crt;

begin

clrscr;

writeln('lop 8 truong THCS an le');

writeln('ho lap trinh pascal');

readln

end.

*

program ct;

uses crt;

var a,h,DT:real;

begin

clrscr;

write('nhap duong cac=');readln(h);

write('nhap do dai canh=');readln(a);

DT:=1/2*a*h;

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

readln

end.