Уже не нужно печатную версию. Блок-схема во вложении.
1 - а2 - а3 - а4 - б дальше хз
Налить воду в 5 л ведро
Вылить в 9 л ведро
Снова налить в 5 л ведро И вылить в 9 л
И в 5л ведре останется 1 литр
Var
N, X, Max, i: Integer;
Begin
Max := 0;
WriteLn('Введите количество чисел N: ');
Read(n);
WriteLn('Введите N чисел: ');
For i := 1 To N Do
Begin
Read(X);
If X > Max then Max := x;
End;
WriteLn('Максимальное: ', Max);
End.