Если x вводится с клавы:
var x:integer;
begin
readln(x);
writeln( 4*sqr(x)+2*(sqr(x)+1));
<span>End.
Если нет, то
</span>
begin
writeln( 4*sqr(3)+2*(sqr(3)+1));
<span>End.</span>
Делим на тройки чисел с конца.
110 010 011 010 011 тогда получаем:
6 2 3 2 3
Значит
62323 (8)
Цикл
----------------------------------------------------------------