PASCAL

uses crt;
var
nm : string;
begin
clrscr;
write ('masukan nama anda : ');readln(nm);
write ('nama anda adalah ' , nm);
readln;
end.