Procedure

program latihan_Prosedur;
uses wincrt;
procedure hitung;
var a,b,c:integer;
begin
c:=a+b;
writeln('masukkan nilai 1 dan 2 = ');read(a,b);
writeln('hasil jumlah = ',c);
end;
var i:char;
n:integer;

begin
repeat
begin
writeln('silakan pilih menu yang anda inginkan = ');
writeln('1. Penambahan ');
writeln('2. Pengurangan ');
writeln('3. Perkalian ');
writeln('Menu yang anda pilih adalah ');read(n);
end;
hitung;
writeln;
writeln('Apakah anda ingin mengulanginya lagi(Y/T)? ');read(i);
until i='t';

end.