Саша хочет ввести символ и вывести его, добавив по "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.