program mi;Var n, ch, i, max:integer; begin max:=1; write(039;Введите кол-во чисел

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