ПОМОГИТЕ пожалуйстаВвести строку состоящая из двух слов, разделенным пробелом. Удалить...

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.