Нужна блок схема к Паскалю. Помогите
 

Привет очень нужна блок схема, я не знаю как это сделать....:tehnari_ru_325:
вот код


Program Interesting_numbers_kursova;
Const Size=80;
Var
Mas:Array[1..Size] of 0..9;
n:Byte;
Procedure Run(n:Byte);
Var j,i,ost,cifr:Byte;
begin
FillChar(Mas,SizeOf(Mas),0);
i:=Size;
ost:=0;
Mas[i]:=n;
Write('N=' ,n,' ');
Repeat
cifr(Mas[i]*n+ost) mod 10;
ost:=(Mas[i]*n+ost) div 10;
dec(i);
Mas[i]:=cifr;
Until (Mas[i]=:0)and(ost=l);
dec(i);
Mas[i]:=ost;
for j:=i to size do Write(Mas [j]) ;
Writeln
end;
Begin
for n:=2 to 9 do Run(n) ;
End.

Привет очень нужна блок схема, я не знаю как это сделать....:tehnari_ru_325:
Условие
Існують натуральні числа, що закінчуються цифрою N: перенесення цифри N на початок числа приводить до збільшення числа у N разів.
Наприклад, число 102 564,N=4,410 256= 102 564 • 4.
Знайдіть найменші натуральні числа, що задовольняють цю умову при N= 2,3,4,5,6,7,8,9.


вот код


Program Interesting_numbers_kursova;
Const Size=80;
Var
Mas:Array[1..Size] of 0..9;
n:Byte;
Procedure Run(n:Byte);
Var j,i,ost,cifr:Byte;
begin
FillChar(Mas,SizeOf(Mas),0);
i:=Size;
ost:=0;
Mas[i]:=n;
Write('N=' ,n,' ');
Repeat
cifr(Mas[i]*n+ost) mod 10;
ost:=(Mas[i]*n+ost) div 10;
dec(i);
Mas[i]:=cifr;
Until (Mas[i]=0)and(ost=l);
dec(i);
Mas[i]:=ost;
for j:=i to size do Write(Mas [j]) ;
Writeln
end;
Begin
for n:=2 to 9 do Run(n) ;
End.

Пожалуйста, вот блок-схема: