contoh pascal - 2.1

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.