Составьте программу, которая позволяет удалить второе слово строки s. строку s,состоящую из двух слов,разделенных пробелами, введите с клавиатуры.

Pogram ypr;Var s:string;p:integer;beginreadln(s);p:=pos(' ',s);delete(s,2,p);writeln(s);end.