Как то так получилось:
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>404 Error</title>
<link rel="stylesheet" href="css/style.css">
</head>
<body>
<div>
<p>Что бы создать..</p>
<ol>
<li>Выучить HTML</li>
<li>CSS</li>
<li>php</li>
</ol>
</div>
<div>
<p>Text</p>
<ol type="I">
<li>Text</li>
<li>Text</li>
<li>Text</li>
<li>Text</li>
</ol>
</div>
<div>
<p>Text</p>
<ol type="a">
<li>Text</li>
<li>Text</li>
<li>Text</li>
<li>Text</li>
</ol>
</div>
<div>
<p>Text</p>
<ol start="2">
<li>Text</li>
<li>Text</li>
<li>Text</li>
<li>Text</li>
</ol>
</div>
</body>
</html>
Если будут вопросы - пиши, всё объясню.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6
3
если остаток от деления числа Х на 3 равен 0 и остаток от деления числа Х на 6 НЕ равен 0, то....