Ответ:
1.Голубой
2.Светло-зелёный
3.Розовый
4.Коричневый
Объяснение:
Проверено через программу TextEdit функции выбора цвета на Mac OS
Var
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
Напиши там что-нибудь например что он там вредит здоровью зрение портит излучение мдёт
Var
s : Real;
i,n : Integer;
Begin
s:=0;
Readln(n);
For i:=1 to n do s:=s-n/(2*i);
end.