Program Menentukan Nilai Ujian dengan IF ELSE

program if_else;
uses crt;
var
nilai:integer;
u:char;
label a;

begin
clrscr;
        a:
        write('Input nilai: '); readln(a);
        if a<40 then writeln ('nilai E')
        else if a<50 then
        begin
        writeln('nilai D');
        end
        else if a<60 then
        begin
        writeln('nilai C');
        end
        else if a<80 then
        begin
        writeln('nilai B');
        end
        else if a>80 then
        begin
        writeln('nilai A');
        end
        else
        begin
        writeln('salah');
        end;
        Write('Ulangi ?: '); readln(u);
        if u='y' then goto a;
        readln;
end.