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.