Скер мафака биич андеграунд
Там будет 2 круга 1 большой и в нём ещё 1 маленький, большой это все телефоны, а маленький это твой
Var a:array[1..30] of integer;
i:integer;
begin
for i:=1 to 30 do
begin a[i]:=2*i;
write(a[i],' ');
end;
end.
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.