Составьте блок-схему к следующей программе:
program n_9;
var
a:array [1..50] of integer;
i,k:integer;
begin
for i: = 1 to 50 do
a[i]: = random (51) + 150;
for i: = 1 to 50 do
writeln (a[i]);
k: = 0;
for i: = 1 to 50 do
if a[i]> = 170 then k: = k +1;
writeln('k = ',k);
end.