program xxx;
var a:string;
begin
write('введите строку-');
read(a);
write(a);
readln
end.
На каком ЯПе?Вот пример решения на Паскале ABC.
program test;
var s:string;
read(s);
write(s);
