contoh pemograman pascal CLRSCR

program pemograman_clrscr;

uses wincrt;

var nama,nim:string;

label lagi;

begin

clrscr;

lagi:

writeln('selamat datang mahasiswa');

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

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

writeln('terima kasih anda sudah menginputkan');

goto lagi;

end.