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

[icewind]

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

Привет очень нужна блок схема, я не знаю как это сделать....: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:=n;
Write('N=' ,n,' ');
Repeat
cifr(Mas*n+ost) mod 10;
ost:=(Mas*n+ost) div 10;
dec(i);
Mas:=cifr;
Until (Mas=:0)and(ost=l);
dec(i);
Mas:=ost;
for j:=i to size do Write(Mas [j]) ;
Writeln
end;
Begin
for n:=2 to 9 do Run ;
End.

 

[icewind]

Привет очень нужна блок схема, я не знаю как это сделать....: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:=n;
Write('N=' ,n,' ');
Repeat
cifr(Mas*n+ost) mod 10;
ost:=(Mas*n+ost) div 10;
dec(i);
Mas:=cifr;
Until (Mas=0)and(ost=l);
dec(i);
Mas:=ost;
for j:=i to size do Write(Mas [j]) ;
Writeln
end;
Begin
for n:=2 to 9 do Run ;
End.

 

[Léon1]

очень нужна блок схема, я не знаю как это сделать....

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