Дано пятизначное число получить новое число трехзначное путем удаления единиц и сотен затем получить число обратное 3-ому. пример 12345..

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу