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.