Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
5,10, 15, 20, 25, 30,35,40,45....115
<em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Sort; a.Println
end.
<u>Пример</u>
n= 17
22 15 -9 3 5 -13 6 -40 -8 -16 22 -20 -29 -26 10 -43 -6
-43 -40 -29 -26 -20 -16 -13 -9 -8 -6 3 5 6 10 15 22 22
Ответ:..............
Объяснение:.................
Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.