Câu 1 :
uses crt;
var a, b, c : integer;
begin
clrscr;
write('Nhap ba so a, b, c : '); readln(a, b, c);
write('3 so vua nhap : ', a : 3 , b : 3 , c : 3);
readln
end.
Câu 2 :
uses crt;
var n : byte;
begin
clrscr;
write('Nhap so luong hoc sinh : ');
readln(n);
write('So luong ban = ', n);
readln
end.