Привет очень нужна блок схема, я не знаю как это сделать....
вот код
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.