uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap so'); readln(n);

if n=1 then write('nam');

if n=0 then write('nu');

write('nhap nam sinh'); readln(s);

i:=0;

i:=2022-s;

write('tuoi cua ban la: ',i);

readln

end.

----------------------

mình đã cho chạy thử chương trình rồi nha:>

$tôi ghét hóa học$

uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
if n=1 then write('Nam');
if n=0 then write('Nu');
readln
end.

uses crt;
var n:longint;
begin
clrscr;
write('Nhap nam sinh: '); readln(n);
write('Tuoi cua ban la: ',2022-n);
readln
end.