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