Напишите программу на паскале.
В программу вводят 3 числа, например 15 28 10, и она должна выбрать среднею из них. т. е если дается 15 28 10 она должна выписать 15

Предыдущий
вопрос Следующий
вопрос

program FindMiddleNumber;
var
num1, num2, num3, middle: integer;
begin
writeln('Enter three numbers:');
readln(num1, num2, num3);
if (num1 >= num2) and (num1 <= num3) or (num1 >= num3) and (num1 <= num2) then
middle := num1
else if (num2 >= num1) and (num2 <= num3) or (num2 >= num3) and (num2 <= num1) then
middle := num2
else
middle := num3;
writeln('The middle number is: ', middle);
end.

Программа сначала запрашивает у пользователя три числа, затем она находит среднее число из них и выводит его.