Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>
<em>var a, b, i :integer; </em>
<em> s :string;</em>
<em>begin </em>
<em> readln (a); </em>
<em> while a>0 do </em>
<em> begin</em>
<em> b:=a mod 10;</em>
<em> a:=a div 10;</em>
<em> write (b*b*b, ' ');</em>
<em> end;</em>
<span><em>end.</em></span>
""""""""""""""""""""""""""""""""""""""""""""""""""""""
8 % 3 = 2
3 * 5 = 15
15 div 2 = 7
12.16..05
19.1316.03.01
17.18.01.03.10.13.16