tampil kata

program TampilKata;
uses crt;
var
Nama : String[20];
begin
clrscr;
write('Nama Anda? : ');readln(Nama);
writeln(upcase(Nama),'..... Selamat Datang Di Pemrograman FREE PASCAL');
readln;
end.