Ответы Mail.ru: Ответ на вопрос "Информатика. 8 класс. Паскаль. Программа:  Найти наибольшее из 4 целых чисел."

Ошибка в коде. Генетическом.

Вместо всей этой невообразимо длинной и запутанной фигни тебе надо было написать всего 2 строчки основной программы и одну подпрограмму (это если не использовать готовую функцию max из модуля math чтобы не нервировать препода):

 function max(a, b: integer):integer;
begin
  max := a;
  if (b > a)
    max := b;
end;
var a, b, c, d: integer;
begin
  readln(a, b, c, d);
  writeln(max(max(a, b), max(c, d)));
end; 

Вообще, программирование - это про простые вещи. Чем проще, тем меньше места для ошибки. Вот в моем коде одно-единственное условие. Больше тут просто нафиг не уперлось, как ни крути. А ты сумел понапихать их какое-то нереальное просто количество, талант прямо-таки...