Rumus Turbo Pascal 3

uses wincrt;
Var
Nilai:Real;
Ket:string;
kembali:char;
label awal;

Begin
awal:
Write('masukkan nilai anda:');Readln(nilai);
if nilai>=77 then ket:='tuntas';
if nilai<=77 then ket:='remidi';
Writeln (ket);
Writeln('lagi:');
kembali :=Readkey;
if kembali='y' then goto awal;

end.