PENULISAN PROCEDURE & FUNCTION BENTUK SEDERHANA (STANDART)

program Project11;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure jumlah;
  var
    A,B,C:integer;
  begin
    writeln ('NIM  : 114224008');
    writeln ('NAMA : AZIZUN NURRACHMAN');
    writeln ('=====================================');
    writeln ('CONTOH PENULISAN PROCEDURE & FUNCTION');
    writeln ('          BENTUK SEDERHANA           ');
    writeln ('=====================================');
    writeln ('');
    write('Masukkan Nilai A = '); readln (A);
    write('Masukkan Nilai B = '); readln (B);
    C:= A+B ;
    write('A + B = ',C);
  end;
begin
  jumlah;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.