Bài toán 1 :

program tinh;

uses crt;

var t : integer;

begin

clrscr;

write('nhap tong diem khi tham gia tro choi  :');readln(t);

if t >= 100 then writeln('Dat giai')

else writeln('Khong dat giai');

readln

end.

Bài toán 2 :

program tam_giac;
uses crt;
var a, b, c : integer;

      p, s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap do dai canh c :');readln(c);

p := (a + b + c)/2;
s := sqrt(p*(p-a)*(p-b)*(p-c));
if (a +b > c) or (a + c > b) or (b + c > a) then

begin
writeln('ba so nguyen duong la canh cua tam giac');

writeln('dien tich cua tam giac la :', s:8:2);

end
else writeln('ba so nguyen duong khong la do dai ba canh tam giac ');
readln
end.