Помогите решить задачу по Паскаль

Question

Нужно чтобы пользователь ввел свои зачеты, и на экран выявилоь хорошая ли это оценка либо плохая в зависимости от зачетов 
 
Program ocenka; 
uses crt; 
var b,z, z1,z2: byte; 
Begin 
 clrscr; 
 writeln('‚Введите зачет'); readln(z1); 
 readln(z2); 
 z:=z1+z2; 
 
 writeln('Ваш зачет равен­: ',z); 
 
 case b of 
 0..39:writeln('Плохо) ; 
 40..59:writeln('НЕ ОЧЕНЬ'); 
 60..79:writeln('Хорошо'); 
 80..100:writeln('Отлично'); 
 endж 
 
 z:=b; 
readln 
end.

Анна Студеникина · Accepted Answer

Program ocenka; 
uses crt; 
var b,z, z1,z2: byte; 
Begin 
clrscr; 
writeln('Vvedite zachet'); readln(z1); 
readln(z2); 
z:=z1+z2; 
 
writeln('Vash zachet raven: ',z); 
 
case z of 
0..39:writeln('ploho'); 
40..59:writeln('ne ochen'); 
60..79:writeln('horosho'); 
80..100:writeln('otlichno'); 
end; 
 
readln 
end.