СРОЧНО!Пожалуйста посчитайте ПОЖАЛУЙСТА!10 КЛАСС. Подробнее пожалуйста.

begin
  ReadlnString.ToWords.Println(NewLine)
end.


Изучение информатики
Изучение
информатики



var
  s:string;
  p:integer;

begin
  Readln(s);
  p:=Pos(' ',s);
  Writeln(Copy(s,1,p-1));
  Writeln(Copy(s,p+1,Length(s)-p))
end.