Contoh Procedure Input

program penjualan_tape;
uses wincrt;
type
jualTape = record
      jumlah : integer;
      jenis  : string;
      harga,bagus,total  : integer;
      end;
      procedure input;
      var
      i,n,jumlah  : integer ;
      kelas     : string  ;
      harga     : integer ;
      penjual   : string  ;
      bagus,total: integer;
      tape      : array [1..5] of jualTape;

      bagus_ganteng: jualTape;

      begin
     
      with bagus_ganteng do
     
     
      begin
      write('masukkan jumlah data yang akan di masukkan   =  ');readln(n);
 
      for i:=1 to n do
      begin
      bagus:=0;
      total:=0;
      writeln('Data penjualan tape 2011-2012');
      writeln;

      write('masukkan nama penjual             =  ');readln(penjual);
      write('masukkan jumlah tape yang terjual =  ');readln(jumlah);
      write('masukkan jenis tape               =  ');readln(jenis);
      write('masukkan kelas tape               =  ');readln(kelas);
      write('masukkan harga per-bungkus        =  ');readln(harga);
     
      writeln('----------------------------------------------------');
     
      end;
      bagus:=bagus+(jumlah[i]);
      total:=total+harga;
      writeln('total pemasukan hari ini           =   ',total);
      writeln('jumlah tape yang terjual hari ini  =   ',bagus);
      end;
      end;
      begin
      input;
end.