Contoh Aktivitas Sederhana Dalam Pascal Part 2
program Program_Ku;
uses crt;
var nama : string [50];
begin
clrscr;
write('Masukkan Nama Anda : ');readln(nama);
writeln('Nama Saya Adalah : ' ,nama);
readkey;
end.
Sumber http://blogger-midnight.blogspot.com/