<p>Imperdiet nullam senectus ultricies dignissim. Class erat sed lobortis dapibus integer. Rhoncus risus. Non turpis turpis faucibus suspendisse, habitasse, porta.</p>
<p>Phasellus eleifend cras fringilla morbi, metus cubilia consequat consequat est, felis Malesuada parturient. Montes lacinia eu elit inceptos nascetur lobortis nibh interdum phasellus laoreet litora magna feugiat nibh, vel montes nonummy nostra, sodales suspendisse duis sem interdum vel torquent libero.</p>
<p>Diam iaculis vestibulum consequat. Primis ullamcorper venenatis blandit ultrices leo phasellus quisque. Feugiat eu ad. Aptent ultrices. Habitant ultrices nullam, quis magna blandit non habitant at adipiscing nam Massa facilisis auctor dictumst aenean cubilia nisi etiam cum placerat facilisis. Sociosqu.</p>
<html>
<head>
<meta charset="utf-8">
<title>Document</title>
</head>
<body>
<header>
<h1>Title</h1>
<p>Imperdiet nullam senectus ultricies dignissim. Class erat sed lobortis dapibus integer. Rhoncus risus. Non turpis turpis faucibus suspendisse, habitasse, porta.</p>
<p>Phasellus eleifend cras fringilla morbi, metus cubilia consequat consequat est, felis Malesuada parturient. Montes lacinia eu elit inceptos nascetur lobortis nibh interdum phasellus laoreet litora magna feugiat nibh, vel montes nonummy nostra, sodales suspendisse duis sem interdum vel torquent libero.</p>
<p>Diam iaculis vestibulum consequat. Primis ullamcorper venenatis blandit ultrices leo phasellus quisque. Feugiat eu ad. Aptent ultrices. Habitant ultrices nullam, quis magna blandit non habitant at adipiscing nam Massa facilisis auctor dictumst aenean cubilia nisi etiam cum placerat facilisis. Sociosqu.</p>
<ul>
<li>Text</li>
<li>Text</li>
</ul>
</header>
</body>
</html>
Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение: