Держи, если есть вопросы - пиши.
var a, b: string;
var c: word;
begin
c:=1;
Readln (a);
While (a [c] <> ) do begin
b:=b+a [c];
c:=c+1;
end;
writeln (b);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.