program gioi_thieu;

uses crt;

var s:string;

begin

       clrscr;

       write('Ho va ten: ');   readln(s);

       write('Toi den tu ');   readln(s);

       write('So thich cua toi la ');   readln(S);

       readln;

end.

program phuongt;
uses crt;
     var n, f, v: string;
               o: integer;
begin
       clrscr;
       writeln('Chao cac ban');
       write('Minh la: '); readln(n);
       write('Nam nay minh bang tuoi cac ban, la: '); read(o); writeln('tuoi');
       write('Minh tu truong '); read(f); writeln('chuyen den day');
       write('Minh thich '); readln(v);
       write('Co gi mong moi nguoi giup do minh a!');
       readln
end.