1) var
s, s1:string;
c:char;
begin
repeat begin read (c); s1:=s1+c; end until c= ;
read (s);
write (s);
end.
2)var
s, s1, s2:string;
c:char;
begin
read (s);
while (c<> ) do begin read (c); s1:=s1+c; end;
read (s2);
write (s1, , s, , s2); end.
где первым вводится слово, которое нужно вставить
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.