$#QLinkVN$

Cấu trúc chương trình trên như sau:

program thong_tin;
uses crt;
var hvt: string;
      nam_sinh, nam_nay, tuoi: integer;

begin
clrscr;
writeln('Nhap ho va ten cua HS: '); readln(hvt);
writeln('Nhap nam sinh cua hoc sinh tren: '); readln(nam_sinh);
writeln('Thoi diem hien tai la nam: '); readln(nam_nay);
tuoi:=nam_nay-nam_sinh;
writeln('Em ',hvt,' nam nay ',tuoi,' tuoi!');
readln;
end.

Kết quả: Khi lần lượt nhập vào giá trị "Nguyen Van A", "2008" và "2021" thì ta được màn hình kết quả như hình sau:

uses crt;

var a,b,c:integer;

      d:string;

begin

write('Nhap ho va ten:');readln(d);

write('nhap nam sinh cua bn:');readln(a);

write('năm nay là năm:');readln(b);

c:=b-a;

writeln('Nam nay bn ',c,' tuoi');

readln;

end.

Chương trình trên mk áp dụng cho các năm chứ ko riêng năm 2021 nhé!