Bài 1:

Program tam_giac;

Uses crt;

Var a, h, D: real;

Begin

  Clrscr;

  Write(' Nhap canh day:');

  Readln( a);

  Write(' Nhap chieu cao:');

  Readln( b);

  D:= ( a* h)/ 2;

  Writeln(' Dien tich hinh tam giac la:', D: 4: 2);

  Readln;

End.

Bài 2:

Program gia_tri;

Uses crt;

Var a, b, D: integer;

Begin

  Clrscr;

  Write(' Nhap so nguyen a:');

  Readln( a);

  Write(' Nhap so nguyen b:');

  Readln( b);

  D:= 2* ( a+ b);

  Writeln(' Gia tri cua bieu thuc la:', D);

  Readln;

End.

#XINCTLHN@@

Bài 1 :

program dien_tich;

uses crt;

var a, h, s : real;

begin

clrscr;

write('nhap do dai canh day :');readln(a);

write('nhap so dai chieu cao :');readln(h);

s := (a * h)/2;

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

readln

end.

Bài 2 :

program tinh;

uses crt;

var a, b : integer;

          D : real;

begin

clrscr;

write('nhap so nguyen duong a :');readln(a);

write('nhap so nguyen duong b :');readln(b);

D := 2*(a + b);

writeln('gia tri cua bieu thuc D la :', D);

readln

end.