Помогите плиз эту задачу нам дали из электива по информатики начинаться должно так Program abc; var a,b,c:integer; Begin и дальше пож

var a,b,c:integer; BEGIN readln(a,b,c); writeln('Ваше число равняется '); writeln(b); END. Я так понял

var a,b,c:integer; BEGIN      writeln('Введите числа');      readln(a,b,c);      If ((a>b) and (b>c)) or ((c>b)and(b>a)) then writeln('число по середине b=',b);      if ((a>c) and (c>b)) or ((c>a)and(b>c)) then writeln('число по середине c=',c);      if ((b>a) and (a>c)) or ((a>b)and(c>a)) then writeln('число по середине a=',a);      readln; END.