Đề 4 :

a)

program tam_giac;
uses crt;
var a, h, s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai chieu cao h :');readln(h);
s := 0.5*a*h;
writeln('dien tich cua tam giac la :', s:8:2);
readln
end.

b) 

program tinh; (*khai báo tên chương trình*)

uses crt; (*khai báo thư viện*)

begin

clrscr;

writeln('gia tri cua bieu thuc 1 la :', abs(205) - sqr(3)); (*abs giá trị tuyệt đối, sqr bình phương*)

writeln('gia tri cua bieu thuc 2 la :', 40*(6*9 + (10*20)/2));

writeln('gia tri cua bieu thuc 3 la :', 100 mod 5 div 9); (*mod chia lấy phần dư, div chia lấy phần nguyên*)

readln

end.