Напишите программу на паскале. В программу вводят 3 числа, например 15 28 10, и она должна выбрать среднею из них. т.е если дается 15 28 10 она должна выписать 15
program FindMiddle; var a, b, c: integer; begin writeln('Enter three numbers:'); readln(a, b, c);
if (a >= b) and (a <= c) or (a <= b) and (a >= c) then writeln('Middle number is: ', a) else if (b >= a) and (b <= c) or (b <= a) and (b >= c) then writeln('Middle number is: ', b) else writeln('Middle number is: ', c); end.
program FindMiddle;
var
a, b, c: integer;
begin
writeln('Enter three numbers:');
readln(a, b, c);
if (a >= b) and (a <= c) or (a <= b) and (a >= c) then
writeln('Middle number is: ', a)
else if (b >= a) and (b <= c) or (b <= a) and (b >= c) then
writeln('Middle number is: ', b)
else
writeln('Middle number is: ', c);
end.