Contoh IF THEN GOTO di Pascal

USES WINCRT;
LABEL 1;
VAR
   NAMA,Y,I,P,K:STRING;
   V,S,T:REAL;
BEGIN

CLRSCR;
 WRITELN('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
 WRITELN('            PEMROGRAMAN KECEPATAN           ');
 WRITELN(' SILAHKAN MASUKAN NAMA PENGGUNA ::::');READLN(NAMA);
 1:
 CLRSCR;
 WRITELN(' SELAMAT DATANG "',NAMA,'" DI PROGRAM KECEPATAN');
 WRITELN('');WRITELN(' SILAHKAN PILIH MENU YANG ANDA INGINKAN ');
 WRITELN('');WRITELN(' A. PENJELASAN');
 WRITELN('');WRITELN(' B. PEHITUNGAN KECEPATAN');
 WRITELN('');WRITELN(' C. KENDARAAN');
 WRITELN('');WRITELN(' D. KESIMPILAN & SARAN');
 WRITELN('');WRITE(' MASUKAN PILIHAN ANDA A/B/C ATAU D :::: ');READLN(P);CLRSCR;
 IF P='A' THEN
 BEGIN
 WRITELN('');WRITELN(' PENJELASAN');
 WRITELN('');WRITELN(' KECEPATAN ADALAH ILMU LANJUTAN DARI GERAK DIMANA');
 WRITELN('');WRITELN(' KECEPATAN DIDEFINISIKAN SEBAGAI PERPINDAHAN SUATU OBJECT DARI');
 WRITELN('');WRITELN(' TEMPAT SATU KE TEMPAT YANG LAIN DENGAN WAKTU DAN JARAK YANG BERBEDA');
 WRITELN('');WRITELN('UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
 END;
 IF P='B' THEN
 BEGIN
 WRITELN('');WRITELN (' KECEPATAN TERDIRI DARI ELEMEN-ELEMEN DIANTARANYA ADALAH ');
 WRITELN('');WRITELN (' V ADALAHA KECEPATAN MENGGUNAKAN SATUAN KM/JAM');
 WRITELN('');WRITELN (' S ADALAH JARAK MENGGUNAKAN SATUAN KM');
 WRITELN('');WRITELN(' T ADALAH WAKTU MENGGUNAKAN SATUAN JAM');
 WRITELN('');WRITE(' APAKAH ANDA SUDAH SIAP UNTUK MENGHITUNG TEKAN ENTER APABILA SUDAH'); READLN;
 CLRSCR;
 WRITELN('');WRITELN('');WRITE(' MASUKAN JARAK YANG ',NAMA,' TEMPUH :::(KM)  ');READLN(S);
 WRITELN('');WRITELN('');WRITE(' MASUKAN WAKTU YANG ',NAMA,' TEMPUH :::(JAM) ');READLN(T);
 WRITELN('');
 V:=S/T;
 WRITELN(' KECEPATAN RATA-RATA ',NAMA,' ADALAH ::: ',V:3:2,' KM/JAM');
 IF V <= 80 THEN
 WRITELN (' ANDA MENGENDARAI DENGAN KECEPATAN YANG AMAN ');
 IF V >= 80 THEN
 WRITELN (' ANDA MENGENDARAI TERLALU KENCANG, KURANGI KECEPATAN ANDA');
 WRITELN('');
 WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
 END;
 IF P='C' THEN
 BEGIN
  WRITELN('');WRITELN(NAMA,' PILIH KENDARAAN ');
  WRITELN('');WRITELN(' PILIH JENIS KENDARAAN ');
  WRITELN('');WRITELN(' A. MOTOR');
  WRITELN('');WRITELN(' B. MOBIL');
  WRITELN('');WRITE('MASUKAN PILIHAN ',NAMA,' A/B ');READLN(K);
  IF K='A' THEN
  BEGIN
  CLRSCR;
  WRITELN(NAMA,' MEMILIH MOTOR');
  WRITELN('');WRITELN(' MOTOR ADA 2 JENIS YA ITU MESIN 4T DAN 2T DIMANA');
  WRITELN('');WRITELN(' 4T ADALAH MESIN TANPA BAHAN BAKAR TAMBAHAN ');
  WRITELN('');WRITELN(' 2T ADALAH MESIN MENGGUNAKAN BAHAN TAMBAHAN SEPERTI OI SAMPING');
  WRITELN('');WRITELN(' MOTOR 4T APABILA DALAM PERJALANAN MAKIN PANAS TEMPARATUR MESIN MAKA');
  WRITELN('');WRITELN(' KECEPATAN MESIN MAKIN BERTAMBAH KENCANG SEDANGKAN 2T TIDAK TAHAN');
  WRITELN('');WRITELN(' TERHADAP TEMPERATUR TINGGI PERAWATAN PADA 4T LEBIH MUARH DAN MUDAH');
  WRITELN('');WRITELN(' DIDAPAT DIBANDING 2T');
  WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
  END;
  IF K='B' THEN
  BEGIN
  CLRSCR;
  WRITELN(NAMA,' MEMILIH MOBIL');
  WRITELN('');WRITELN(' MOBIL ADALAH JENIS KENDARAAN BERKECEPATAN TINGGI');
  WRITELN('');WRITELN(' KARENA CC-NYA LEBIH BESAR DARI PADA SEPEDA MOTOR');
  WRITELN('');WRITELN(' SEHINNGA PENNGUNAAN HARUS LEBIH HATI-HATI');
  WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
  WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
 IF I='B' THEN GOTO 1;CLRSCR;
  END;
  END;
  IF P='D' THEN
  BEGIN
  WRITELN('');WRITELN(' SARAN DAN KESIMPULAN');
  WRITELN('');WRITELN(' DALAM BERKENDARAAN DIJALAN RAYA APABILA KITA HENDAH BERKECEPATAN RENDAH');
  WRITELN('');WRITELN(' DIBAWAH 60 KM/JAM SEBAIKNYA KITA MEGGUNAKAN JALUR SEBELAH KIRI DAN JA-');
  WRITELN('');WRITELN(' LUR SEBELAH KANAN APABILA KECEPATAN DIATAS 60 KM/JAM KEATAS UNTUK ME-');
  WRITELN('');WRITELN(' NGETAHUI KECEPATAN BERKENDARAAN YANG BAIK ANDA BISA MENGGUNAKAN PROGRAM');
  WRITELN('');WRITELN(' INI DENGAN MASUK KE PERHITUNGAN KECEPATAN DIJAMIN ANDA SELAMAT SAMPAI ');
  WRITELN('');WRITELN('  TUJUAN DAN KELUARGA TERCINTA ANDA');
  WRITELN(' MENUNGGU ANDA ');
  WRITELN ('SELAMAT MENCOBA ');
  WRITELN('');WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);

 IF I='B' THEN GOTO 1;CLRSCR;
  END;
 END.