Var n, s, i: integer;
begin
write('Введите n>> ');
readln(n);
if n>0 then
for i:=1 to n do
s:=s+sqr(i);
writeln(s);
<span>end.</span>
два цвета <span>н по идее 16 (2^4 где 2 - количество цветов, а 4 - количество елок)</span>
Активная ячейка В2
диапазоны: А1:А2, D1:E2, A4:C4
1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.