Program mi; Var n, ch, i, max:integer; begin max:=1; write('Введите кол-во чисел в последовательности -> '); Readln(n); writeln('Введите последовательность: '); for i:=1 to n do begin write('-> '); readln(ch); if ch > max then max:=ch; end; writeln('Максимальное число: ', max); end. Нарисуйте блок