Isi Biodata

uses crt;
var
nama,alamat:string;
umur,nim:longint;
ab:char;
label ulang;
begin
ulang:
clrscr;
textcolor(lightblue);
write('Nama Saya : ');
readln(nama);
write('Nim Saya : ');
readln(nim);
write('Alamat Saya : ');
readln(alamat);
write('Umur saya : ');
readln(umur);
writeln('-------------------------');
writeln('Nama Saya: ',nama);
writeln('Nim Saya: ',nim);
writeln('Alamat Saya: ',alamat);
writeln('Umur Saya: ',Umur);
readln();
write('Apakah Anda Ingin Mengulang? (y/t)');
readln(ab);
if(ab='y') or (ab='Y') then
begin
goto ulang;
end;
end.