PROCEDURE PASCAL

 program septi_pascal;

    uses crt;

    procedure inputnama (var nm:string);
    begin
    clrscr;
    write('Masukkan Nama Anda ');
    readln(nm);
    end;

    procedure tampilnama (nm:string);
    begin
    write('Haloo Selamat Bergabung!! ',nm);
    end;


    var nama:string;
    begin
    writeln('-======Program Procedure Input Nama======-');
    inputnama(nama);
    tampilnama(nama);
    readkey;

    end.

compile file menjadi dibawah ini !