Viết Chương trình Nhập Họ Và Tên Năm Sinh Rồi đưa Ra Màn Hình Tên Tuổi Giúp Mình Vote 5 sao Ạ :)) zi

program ten_tuoi;

uses crt;

var ht,ten:string;

     ns:integer;

begin

      clrscr;

      write(‘Nhap ho va ten: ‘);  readln(ht);

      repeat

            write(‘Nhap nam sinh: ‘);  readln(ns);

            writeln(‘Nam sinh khong hop le. Nhap lai’);

      until ns<=2021;

      ten:=”;  i:=length(ht);

      while ht[i]<>’ ‘ do

            begin

                  ten:=ht[i]+ten;

                  i:=i-1;

            end;

      write(ten,’ : ‘,2021-ns);

      readln;

end.