Точно в 10 степени? а то если да то там получается большое число<span />
1.
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.
Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
Var
a: array [1..5] of integer;
i: byte;
k: integer := Integer.MaxValue;
begin
for i := 1 to 5 do
readln(a[i]);
for i := 1 to 5 do
k := Min(k, a[i]);
writeln(k);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
Writeln('Сумма положительных без максимума равна ',
a.Where(x->(x>0) and (x<>max)).Sum)
end.
<u>Пример</u>
n= 16
-47 -28 38 49 -42 2 49 -29 39 -36 -4 -11 45 -12 -44 -16
Сумма положительных без максимума равна 124