Как нарисовать блок схему алгоритма? Вводится последовательность из N целых чисел. Найти наибольшее число.

цикл for на блок-схеме таким многоугольником рисуется:



program q;
var
j, n, b:integer;
a:array [1..10] of integer;
begin
for j=1 to n do readln(a[j]);
b:=a[1];
for j=2 to n do if a[j]>b then b:=a[j];
writeln(b)
end.