Program Stok barang pada pascal

pada menu program ini menggunakan perulangan di menu 1 dan 2 kemudian menu 3 menggunakan function exit agar dapat keluar dari looping perulangan.

berikut contoh skrip :

program stok;
uses crt;
var
jml, tmbh, krg, kode : integer;
pil:char;
begin
clrscr;
write('Masukan jumlah stok awal barang = ');
readln(jml);

repeat;
clrscr;
writeln('Total jumlah stok barang = ',jml);
writeln;
writeln('Menu Pilihan :');
writeln;
writeln('1. tambah stok');
writeln('2. kurangi stok');
writeln('3. keluar');
writeln;
write('pilihan = ');
readln(kode);
writeln;

case kode of
1:begin
write('Jumlah stok yang ditambah = ');
readln(tmbh);
jml:=jml+tmbh;
end;
2:begin
write('Jumlah stok yang dikurangi = ');
readln(krg);
jml:=jml-krg;
end;
3:begin
exit;
end;
end;

if (kode=1) then pil:='1' else
if (kode=2) then pil:='2' else
writeln('Pilihan hanya 1 - 3');
readln(pil);
until (pil='1') or (pil='2');

end.

coba lihat screenshot pada menu 1 dan 2 akan terulang secara terus menerus penambahan atau pengurangan pada nilai total stok barang tersebut sesuai pilihan menunya.

semoga bermanfaat..