contoh program pascal prosedur nama

program aritha_pascal;

uses wincrt;

procedure nama;
var nm: string;

begin
write('masukkan nama anda ');
readln(nm);
write('haloo ', nm);
end;

begin
writeln('-======Program Procedure Input Nama======-');
nama;
end.