// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var d:=ReadInteger('n=') mod 10;
Writeln(d,#13#10,sqr(d));
end.
<u><em>Тестовое решение:</em></u>
n= 346427
7
49
10 - 2 + 1 = 9 строк
9 * 2 = 18 клеток
x<17 = true , dlia x=1
x<16 = true, otritanie true budet flase
true or false = true.
otvet: true
Это программа упорядочивает элементы вам надо создать еще один массив в который будете сохранять номера элементов , хотя в принципе можете попробывать по другому