Question

ПОМОГИТЕ     пожалуйста

                                 

Ввести строку состоящая из двух слов, разделенным пробелом. Удалить первое слово и вывести получившую строку. 

Answer 1

var a,c: string; k,p: integer;
begin
write ('Введите строку: '); read (a);
k:=length(a);
p:=pos(' ', a);
c:=copy(a, p + 1, k - p + 1);
writeln ('Результат: ', c);
end.