program ;
uses crt;
procedure InputNamaDepanBelakang(var namaDepan, namaBelakang: string);
begin
writeln('Masukkan nama depan: ');
readln(namaDepan);
writeln('Masukkan nama belakang: ');
readln(namaBelakang);
end;
var
namaDepan, namaBelakang: string;
begin
clrscr;
// Memanggil prosedur untuk input nama
InputNamaDepanBelakang(namaDepan, namaBelakang);
writeln('Nama lengkap: ', namaDepan, ' ', namaBelakang);
readln;
end.