Question

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

Answer 1

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

Я так понял

Answer 2

Ты можешь получше расписать, но эта запись компактнее

Answer 3

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.