Саша хочет ввести символ и вывести его, добавив по "1" слева и справа от него. ему в этом нелегком деле. ) формат ввода: вводится символ формат вывода: надо вывести "1" символ "1" пример ввода: l пример вывода : 1l1

Var
  c:char;
begin
  Write('Введи символ: '); Readln(c);
  Writeln('1',c,'1')
end.

Тестовое решение:
Введи символ: L
1L1

Program primer;
uses crt;
var
a:char;
s1,s2,s3:string;
begin
clrscr;
writeln('vvedite simvol');
readln(a);
s1:='1';
s2:=a;
s3:=s1+s2+s1;
writeln(s3:4);
end.
но я бы попроще
после readln(a);
writeln(1,'a',1);
end.