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. нарисуйте блок
