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.