<body>
<p>
<font color="blue"> Декабрь, январь, и февраль – зимние месяцы.</font>
</p>
<p>
<font color="green"> Март, апрель и май – весенние месяцы. </font>
</p>
<p>
<font color="yelow"> Июнь, июль и август – летние месяцы. </font>
</p>
<p>
<font color="orange"> Сентябрь, октябрь, ноябрь – осенние месяцы. </font>
</p>
Объяснение:
<font color="..."> Вместо троиточия код цвета можешь поставить </font>
<p>Это абзац</p>
<body>
<p>
<font color="blue"> Декабрь, январь, и февраль – зимние месяцы.</font>
</p>
<p>
<font color="green"> Март, апрель и май – весенние месяцы. </font>
</p>
<p>
<font color="yelow"> Июнь, июль и август – летние месяцы. </font>
</p>
<p>
<font color="orange"> Сентябрь, октябрь, ноябрь – осенние месяцы. </font>
</p>
Объяснение:
<font color="..."> Вместо троиточия код цвета можешь поставить </font>
<p>Это абзац</p>
U=1000;
type:
Mas= array [1..U] of integer;
var
a: Mas;
i,j,k,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
write(k,' ');
end;
readln;
readln
end.
Если понравилось поставь лучшее решение!