14; 13; 18; 19.
Вот и всё!
var a : array[1..10] of integer; n, z:integer;
begin
readln(n);
for var i:=1 to n do
readln(a[i]);
for var i:=1 to n-1 do begin
z:=a[i];
a[i]:=a[i+1];
a[i+1]:=z;
end;
for var i:=1 to n do
writeln(a[i]);
<span>end.</span>
Кратко и понятно.
```code
var x, a, n, k: integer;
begin
write('Введите x = '); readln(x);
write('Введите начальный множ. n = '); readln(n);
write('Введите конченый множ. k = '); readln(k);
for a := n to k do writeln(x,' * ', a, ' = ', (a * x));
end.
```
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2;
var x:=a/b;
var y:=x/b;
var z:=Ln(1+x*x)/((1+y*y)*(1+x*x));
Writeln(z)
end.
<u>Результат</u>
0.5 0.5
0.0693147180559945
1 0.8
0.106704348687099
3 1
0.0230258509299405