Составьте программу, которая спрашивает у ученика : "какую оценку ты получил за контрольную работу?"и в зависимости от ответа выдаетразличные сообщения: 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.