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

Что

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

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.