Составьте программу, которая спрашивает у ученика : "какую оценку ты получил за контрольную работу?"и в зависимости от ответа выдаетразличные сообщения: 5 - это отличный результат, 4 - не плохо, но есть к чему стремитьсяв будущем! 3 - ты можешь и лучше! 2 - ой, печалька!

program test;

var evaluation: integer;

begin

write ('Какую оценку ты получил за контрольную работу?: ') ;

readln (evaluation) ;

case evaluation of

5: writeln ('Это отличный результат!') ;

4: writeln ('Не плохо, но есть к чему стремиться в будущем!') ;

3: writeln ('Ты можешь и лучше!') ;

2: writeln ('Ой, печалька!') ;

else

writeln ('Error! Entered an invalid value') ;

end;

readln;

end.