* Xác định bài toán :

- Input : họ và tên, năm sinh

- Output : họ và tên, tuổi

* Mô tả thuật toán :

- Bước 1 : nhập họ và tên, năm sinh ns

- Bước 2 : t ← 2021 - ns

- Bước 3 : xuất họ và tên, tuổi (biến t) ra màn hình

- Bước 4 : kết thúc

* Viết chương trình

uses crt;

var s : string; n, t : integer;

begin

clrscr;

write('nhap ho va ten :');readln(s);

write('nhap nam sinh :');readln(n);

t := 2021 - n;

writeln('Ho va Ten : ', s);

writeln('Tuoi : ', t);

readln

end.

intput:  nhập họ tên năm sinh

output: in ra màn hình, tuổi

thuật toán

bước 1 cho phép nhập họ tên năm sinh

bước 2 gán biến a:=2021- năm sinh

bước 3 in ra màn hình tên ,tuổi 

bước 4 kết thúc chương trình

chương trình

uses crt;

var a:char;

       b,c:integer;

begin

          write('nhap vao ho va ten cua ban'); read(a)

          write('nhap vao nam sinh cua ban'); read(b)

           c:= 2021-b;

          write('ten cua ban la: ',a  , 'ban ',c,'tuoi);

readln

end.