Ребята напишите пожалуйста блок схему а потом программу.

Напиши блок схему пожалуйста

Program n1;var k,n,a,i: integer;znac: array [1..1000] of integer;function th(a: integer ): boolean;beginif (a>99) and (a<1000) then th:=true else th:=false;end;begink:=0;n:=0;while true dobeginwrite('введите число: ');readln(a);n:=n+1;if a=0 then break;if th(a) thenbegin k:=k+1;znac[n]:=a;end;end;writeln('трехзначные числа: ');for i:=1 to n doif znac[i]<>0 then writeln('a[',i,']=',znac[i]);writeln('количество: ',k);end.