Question

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

Answer 1

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

Answer 2

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