BÀI 1:
program bai1;
uses crt;
begin
    write('Ho va ten: ');
    readln;
    write('Lop: ');
    readln;
end.
BÀI 2:
program bai2;
uses crt;
var a,b,c,n,i:integer; // (có thể dùng longint hoặc là những kiểu dữ liệu khác của SỐ NGUYÊN) 
begin
    readln(n);
    for i:=1 to n do
    begin
        if i mod 2=0 then a:=a+1
        else b:=b+1;
        if i mod 3=0 then c:=c+1;
    end;
    writeln('Co ',a,' so chan');
    writeln('Co ',b,' so le');
    writeln('Co ',c,' so chia het cho 3');
    readln;
end.