напишите блок схему по листингу программы

[Владимир163]

function del(n:integer):integer;
var d:integer;
begin
d:=3;
while (d<=n)and(n mod d<>0) do inc(d,2);
if d>n then del:=0 else del:=d
end;
var n:integer;
begin
write('Введите натуральное n=');
readln(n);
if del(n)=0 then write('Нет нечетного делителя не равного 1')
else write('Минимальный нечетный делитель, не равный 1=',del(n));
readln
end.

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

Что у вас не получается? Сами пробовали?