// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(ReadlnString('Введите исходное число:')*2)
end.
<u><em>Тестовое решение</em></u>
Введите исходное число: 210345
210345210345
1 в,
2 б,
3- 8 штук: ---, --+, -+-, -++, +--, +-+, ++-,+++.
4- 4,
5-г,
6 - б
7- г
8- атхуатжа:)