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

Pogram ypr;
Var s:string;
p:integer;
begin
readln(s);
p:=pos(' ',s);
delete(s,1,p);
writeln(s);
end.