program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
Ответ: 30
Эти условия не должны соблюдаться:
x>=31
x<30
Без труда не вытащишь рыбку из труда
Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.