a)

uses crt;

  var a, h, S: real;

begin

  clrscr;

  write('Nhap a = '); readln(a);

  write('Nhap h = '); readln(h);

  S:=1/2*a*h;

  writeln('Dien tich hinh tam giac la: ', S:1:0);

  readln

end.

b)

uses crt;

  var a, b, c, d: integer;

begin

  clrscr;

  write('Nhap a = '); readln(a);

  write('Nhap b = '); readln(b);

  c:=a div b;

  d:=a mod b;

  writeln('Ket qua c = ', c);

  writeln('Ket qua d = ', d);

  readln

end.

a, 

program caua;

var

          a,h:integer; S:real;

begin

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

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

          S:=(a*h)/2;

          write('Dien tich tam giac la: ',S:5:2);

          readln;

end.

b,

program caub;

var

         a,b,c,d:integer;

begin

        write('Nhap hai so: '); readln(a,b);

        c:=a div b;

        d:=a mod b;

        writeln('Ket qua phep chia lay phan nguyen: ',c);

        write('Ket qua phep chia lay phan du: ',d);

        readln;

end.

#Chuc_ban_hoc_tot

#Vote_5_sao_cho_minh_nha

#Xin_tlhn