Viết chương trình pascal để nhập vào năm sinh bất kỳ. In ra màn hình tuổi tương ứng. Giúp nhanh nha!

2 câu trả lời

program tuoi;

Var

          nam:word;

Begin

          write('Nhap nam sinh: '); readln(nam);

          write('Tuoi la: ',2021-nam);

          Readln;

End.

#HN

#Chuc_em_hoc_tot

uses crt;
var namsinh:longint;
begin
clrscr;
    readln(namsinh);
    writeln(2021 - namsinh); 
readln;
end.