Составьте программу, которая спрашивает у ученика: "какую оценку…

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.