Ввести четыре целые числа, найти наибольшее из них. пример 1 5 4 3 наибольшее число 5 напишите код в паскаль,

Program n;
var
a, b, i: integer;
begin
b:= 0;
for i:=1 to 4 do
  begin
  readln(a);
  if a > b then
  b:=a;
  end;
writeln('Наибольшее: ' + b);
end.

Как это работает?
Объявляются три целочисленные (interger) переменные:
a - вводимое число
b - самое большое число
i - счётчик цикла
После запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении)
Запускается цикл for с счётчиком i
Каждый раз цикл просит ввести пользователя число (а)
Дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a>b)
Если ведённое число больше, чем самое большое, то переменной b присваивается значение a
И так пока цикл не закончится
Затем выводится переменная b, в которой хранится самое большое из введённых чисел.

№1.

дом          1         2          3            4            5
цвет- жёлтый синий красный белый зелёный
национальность- норвежец украинец англичанин испанец японец
напиток- вода чай молоко сок  кофе
сигареты-Kool Chesterfield Old-Gold Lucky Strike Parliament
животные- лиса лошадь улитки собака зебра№2

№2

Чтобы стакан мог оказаться между сосудами с чаем и молоком, он должен переместиться на место 3 (чашка на место 4),  на месте 2 он будет между минеральной водой и еще чем-нибудь.

Таким образом, он будет встанет точно в середине. Из этого можно сделать вывод, что в стакане находится кофе. Молоко из условия задачи, во-первых, рядом со стаканом, во-вторых, рядом с сосудом с квасом. Значит, в кружке находится чай, в чашке – молоко, в кувшине – квас.

Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай.
                  кофе чай молоко квас минеральная вода
     бутылка  -        -      -           -        +
     кружка            +      
     чашка                    +    
     стакан    +        -      -          -         -
     кувшин                              +