<html>
<body style="background-color:#0A;">
<img src="1.png" ></img>
<h1>Заголовок</h1>
<p ><font color="Blue" face="Arial">Первый абзац</font></p>
<p ><font color="Gray" face="Lucida Console">Второй абзац</font></p>
<p ><font color="Green" face="Courier New">
Третий абзац
<ol>
<li>Первый пункт</li>
<li>Второй пункт</li>
<li>Третий пункт</li>
</ol>
</font></p>
<marquee> Бегущая строка</marquee>
</body>
</html>
var anarray: array[1..100] of integer;
i: integer;
begin
Randomize;
for i := 1 to 100 do // заполняем массив рандомными числами
anarray[i] := random(100);
for i := 1 to 100 do // выводим на экран элементы массива с четным индексом
begin
if (i + 1 > 100) then Write(anarray[i])
else
if (i mod 2 = 0) then Write(anarray[i], ', ');
end;
for i := 1 to 100 do // выводим на экран элементы массива с нечетным индексом
if (i mod 2 <> 0) then WriteLn(anarray[i]);
end.
begin
k:=0;
s:=0;
for i:=35 to 150 do begin
if (i mod 8 = 1) or (i mod 8 = 2) then begin
s+=i;
k+=1;
end;
end;
writeln('Количество - ',k);
writeln('Сумма - ',s);
end.