Если числа от 1-10 то нужно
(1+2+3+4+5+6+7+8+9+10):10=
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
использовать Робот
алг
нач
вправо;закрасить;вправо;закрасить;вправо;закрасить
вниз;закрасить;вниз;закрасить
влево;закрасить;влево;закрасить
вниз;вниз
закрасить;вправо;закрасить;вправо
закрасить;вверх;закрасить
кон