3. A={a, b,c}. Пусть P имеет нечётную длину. Оставить в P только средний символ.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.

в феврале 1946 года был создан первый компьютер.

program av;

var a,b,c,d,e,f: integer;

begin

writeln('введите 3 числа');

readln(a,b,c);

if (a< b) and (a< c)

then a: =2*a*b*c

else 

if (b< a) and (b< c)

then   b: =2*a*b*c 

else  c: =2*a*b*c;

writeln(a,' первое число',b,'второе число',c' третье число') ;

end.