Ввести на экран 15 раз фразу: »ура скоро конец че верти. нужно исправить оценки»в столбик

Что

Ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.