1. 

program az;

uses Crt;

var a,b,T : integer;

begin

clrscr;

Write('Nhap 2 so a va b'); readln(a,b);

T := a + b;

Write('Tong 2 so do la',T);

readln

end.

2.

Input : 2 số a và b

output : TBC của a và b

3.

program az;

uses Crt;

var d,h : integer;

         S : real;

begin

clrscr;

Write('Nhap canh day cua tam giac : '); readln(d);

Write('Nhap chieu cao cua tam giac : '); readln(h);

S := (d*h)/2;

Write('Dien tich tam giac do la : ',S);

readln

end.

Câu 1:

program ct_btpt;

uses crt;

   var a, b: integer;

begin

   clrscr;

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

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

   writeln('Ket qua cua phep tinh tong so a v b la: ', a+b);

   readln

end.

Câu 2:

In: Số thực a và b.

Out: Trung bình cộng 2 số.

Câu 3:

program ct_btpt;

uses crt;

  var a, h, S: real;

begin

   clrscr;

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

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

   S:=a*h/2;

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

   readln

end.