блок-схемы

[s4egol]

подскажите пожалуйста есть ли такая программа которая просматривая код рисует блок-схему?!?! если таковой нет то помогите пожалуйста построить блок схему к этой программе (находит НОК):
program nokik;
var a,b: longint;
function Nod(a,b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:= a mod b
else b:= b mod a;
NOD:=a+b;
end;
function NOK(a,b:integer):integer;
begin
NOk:=a*b div NOd(a,b)
end;
begin
write('введите a:');
readln(a);
write('введите b:');
readln(b);
writeln('НОК',' ',a,' ','è',' ',b,' ','=',' ',nok(a,b));
end.

ну а если вам уж очень лениво то подскажите пожалуйста в интернете ресурсы которые помогли бы разобраться как её там рисовать ) заранее всем спасибо

[Hacker19_90]

есть ли такая программа которая просматривая код рисует блок-схему?

FCEditor вам в помошь. Вот только рисует она не по ГОСТ'у насколько помню

[Вадим Мошев]

http://www.fceditor.com/

[s4egol]

а схематично никто не может накидать построение блок-схемы к этой проге?