Program Pascal : Goto

Pada bahasa pemrograman yang tidak terstruktur kita bisa menggunakan keyword Goto, seperti pada pascal atau Qbasic. Namun sebenarnya, Pascal dan Qbasic sudah tidak banyak yang mempelajarinya lagi di sekolah-sekolah ataupun Universitas, hanya sedikit sekolah atau Universitas yang masih mempelajari tentang pascal, karna bahasa pemrograman ini bisa dibilang sudah ketinggalan zaman..
Namun begitu, pascal / QBasic ini cukup bagus untuk dipelajari bagi yang awam dengan pemrograman..

Okey, melanjutkan materi sebelumnya tentang Struktur Pemilihan, sekarang beralih ke materi Goto menggunakan Label.

Label ini dideklarasikan pada pendeklarasian variabel, berarti letaknya dibawah judul program, langsung saja ke kodingannya :

Program gotoxy;
Uses crt;

var
nama,alamat:string;
ulangi : char;
label utama,tanya;

begin
utama:
clrscr;
writeln('Selamat Datang!');
write('Masukkan Nama Anda : ');
readln(nama);
write('Masukkan Alamat Anda : ');
readln(alamat);
writeln('===================');
writeln('Hallo!',nama);
writeln('Alamat kamu berada di ',alamat);
writeln('Ulangi lagi ? y/t :');
readln(ulangi);
tanya:
if (ulangi='y') or (ulangi='Y') then goto utama
else if (ulangi='t') or (ulangi='T') then exit
else goto tanya;
readln;
end.

Jika terdapat error