Program Lesson2_Program2;
Var
surname: String;
Const {Kata pasti \'Const\'
digunakan untuk mendeskripsikan konstanta}
name = \'Victor\';
Begin
Write(\'Masukkan belakang anda:\');
readln(surname);
writeln;
writeln;
Writeln(\'Nama lengkap anda adalah: \',name,\' \',surname);
Readln;
End.