Программа работает так , как ее запрограммировал программист, а не как он хотел.
С процедурой swap нет проблем. Давайте рассмотрим алгоритм шаг за шагом.
Вводятся 4 числа: 1,2,3,4
a = 1; b = 2; c = 3; d = 4
Далее программа делает 4 шага:
1) a < b? (1 < 2) => true (истина) => результат: 2134
2) b < c? (1 < 3) => true (истина) => результат: 2314
3) d < a? (4 < 2) => false (ложь) => результат: 2314
4) a < d? (2 < 4) => true (истина) => результат: 4312
Каков итог? В самом синтаксисе ошибок никаких нет. Ошибка в вашем алгоритме.
Что сделать? Исправить алгоритм
Не правильно находится самое максимальное число, рассматриваются не все варианты.
Нужно изменить программу.
var a, b, c, d: real;
begin
writeln('Введите четыре числа ');
readln(a, b, c, d);
// ищем максимальное число, заносим в а
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (a < d) then swap(a, d);
// ищем максимальное из оставшихся, заносим в b
if (b < c) then swap(b, c);
if (b < d) then swap(b, d);
// ищем максимальное из c и d
if (c < d) then swap(c, d);
writeln(a,' ', b,' ', c,' ', d)
end.
Введите четыре числа
15 25 13 19
25 19 15 13
i=1: s=1+1/1=2
i=2: s=2+1/1=3
i=3: s=3+1/1=4.
n=1+2=3.
ответ: s=4, n=3.
Если всё-таки есть begin и end в цикле, но у вас они затерялись (что более вероятно)
i=1: s=1+1/1=2; n=3;
i=2: s=2+1/3; n=3+2=5;
i=3: s=2+1/3+1/5; n=5+2=7;
ответ: s=2+8/15, n=7