Задача про красивый заголовок

[NatawaB]

В один приятный вечер Кирилл решил написать задачу, но он никак не мог придумать заголовок к задаче. Кирилл считает заголовок красивым, если он состоит из одного слова и его длина является простым числом (простое число – число, которое делится только на себя и на единицу). Кирилл написал предварительный заголовок. Он хочет удалить из него минимальное количество символов справа, чтобы получить красивый заголовок. Помогите ему это сделать
Формат входных данных
Единственная строка входного файла содержит предварительный заголовок S. Строка S состоит только из прописных букв английского алфавита и ее длина не меньше 2 и не больше 100.
Формат выходных данных
Выведите красивый заголовок, который получается удалением из строки минимального количества букв справа.
Например
входной файл - beautiful
выходной файл - beautif

[matr_]

в 9 часов вечера решение устроит?

[Shift_sk]

var s,s2:string;i,j,k,nat,c,a:integer;
begin
read(s);
for i:=2 to length(s) do begin
for j:=2 to trunc(sqrt(i))+1 do begin
a:=i mod j;
if a=0 then k:=k+1;
end;
if k=0 then nat:=i;
k:=0;
end;
c:=length(s)-nat;
delete(s,nat+1,c);
writeln(s);
end.

[Serge_Bliznykov]

Shift_sk, решение, похоже, вполне рабочее.
есть несколько замечаний.
1) а зачем Вы перебираете ВСЕ простые числа от 2 до длины строки?
лучше крутить цикл от legnth(s) downto 2
и прерывать, как только нашли ближайшее к длине строки простое число.

2) некрасиво, что не проверяется, если длина строки уже равно простому число,
зачем удалять ноль символов?..

3) 2-ка - простое число. Если длина исходной строки будет равна двум - то ваш код вернёт ошибочный результат

[Shift_sk]

писал на скорую руку!
насчет 3 пункта- встречался с задачей в которой было сказано что двойку не учитывать в простые числа!поэтому и тут написал также!
в общем если немного подправить будет супер!

[ksu9]

Ну что это такое:
"нажимайте на отзыв если я вам помог!"

[Shift_sk]

[olimpiadnik]

Спсибо за решение! сам сижу на олимпиаде! Рахмет от души!