uses wincrt;
var
absen : real;
ket : string;
kembali : char;
label awal;
begin
awal:
write (‘masukkan jumlah absen:’); readln (absen);
if absen >=4 then ket : =‘tidak naik kelas’;
if absen <=4 then ket : =’naik kelas’;
writeln (ket);
writeln (‘again ? y/n’);
kembali : =readkey;
if kembali =’y’ then goto awal;
end.
uses wincrt;
var
jarak : real;
kendaraan : string;
kembali : char;
label awal;
begin
awal:
write (‘masukkan jarak rumah ke sekolah:’); readln (jarak);
if jarak >=5 then kendaraan : =‘motor’;
if jarak <=5 then kendaraan : =’sepeda’;
writeln (kendaraan);
writeln (‘lagi :’);
kembali : =readkey;
if kembali =’y’ then goto awal;
end.
