Удалить в тексте, все слова которого разделены одним пробелом, первое слово, если в нём...

Question

Удалить в тексте, все слова которого разделены одним пробелом, первое слово, если в нём больше, чем 7 букв. (Школьный pascal)

Answer 1

Var
s:string;
begin
readln(s);
if pos(' ',s)>8 then delete(s,1,pos(' ',s));
writeln(s);
end.

Comments

Спасибо огромное!