contoh program pascal dengan Go To

klik my Facebook here

Output

Ujung pandang kotaku

Makassar populernya

PSM keseblasannya

Ewako semangatnya

Siri tradisinya

Hasanuddin pahlawannya

Angin mamiri lagunya

Program alur;

Uses wincrt;

Label k1,k2,k3,AA,2,34,AW,AK.

Begin

Clrscr;

Goto k1;

AW:

                Writeln(‘makassar populernya’);

Goto k3;

K1:

                Writeln(‘ujung pandang kotaku’);

Goto AW ;

K2:

                Writeln(‘ewako semangatnya’);

                Writeln(‘siri tradisinya’);

Goto AA;

K3:

                Writeln(‘PSM keseblasannya’);

Goto k2;

34:

                Writeln(‘angin mamiri lagunya’);

Goto  AK;

AA:

                Writeln(‘hasanuddin pahlawannya’);

Goto 34;

AK:

End.