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