Contoh Kasus: Program Menghitung Jumlah Telur

Program Test;
Uses crt;
var
n,m,t:integer;
h:char;
label a,b,c,d,e,f,g,z;

begin
clrscr;
        writeln('Senin  : 1');
        writeln('Selasa : 2');
        writeln('Rabu   : 3');
        writeln('Kamis  : 4');
        writeln('Jumat  : 5');
        writeln('Sabtu  : 6');
        writeln('Minggu : 7');

        write('Mulai pada hari [1-7] : ');
        readln(h);

        write('Berapa hari lamanya? : ');
        readln(n);
        case h of
        '1': goto a;
        '2': goto b;
        '3': goto c;
        '4': goto d;
        '5': goto e;
        '6': goto f;
        '7': goto g;
        else writeln('Anda salah menginputkan angka');
        end;

        a:
        m:=m+1;
        t:=t+3;
        if m=n then goto z;

        b:
        m:=m+1;
        t:=t+2;
        if m=n then goto z;

        c:
        m:=m+1;
        t:=t+1;
        if m=n then goto z;

        d:
        m:=m+1;
        t:=t+2;
        if m=n then goto z;

        e:
        m:=m+1;
        t:=t+3;
        if m=n then goto z;

        f:
        m:=m+1;
        t:=t+2;
        if m=n then goto z;

        g:
        m:=m+1;
        t:=t+0;
        if m=n then goto z
        else goto a;

        z:
        writeln('Jumlah telur: ',t);

readln;
end.