HARF NOTUNU BULMA

program harfnotu;
uses wincrt;
var
ognot:integer;
harfnot:char;
label tamam;
begin
write('Ogrencinin aldigi notu giriniz:');readln(ognot);
Case ognot of
0..44:harfnot:='E';
45..54:harfnot:='D';
55..69:harfnot:='C';
70..84:harfnot:='B';
85..100:harfnot:='A';
Else
writeln('Hatali giris yaptiniz!');
end; goto tamam;
writeln(ognot,' notunu alan ogrenci ',harfnot,' harfini alir'); tamam:
end.