contoh pemograman dasar LABEL

program pemograman_lagi;

uses wincrt;

var nama,nim:string;

label lagi;

begin

lagi:

writeln('selamat datang mahasiswa');

write('nama: ');readln(nama);

write('nim: ');readln(nim);

writeln('terima kasih anda sudah menginputkan');

goto lagi;

end.