Допустим D6 это x, а A7 это y, тогда:
Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>
program zadanie;
var
a: array[1..10] of integer;
i, max: integer;
begin
randomize;
max:=-10;
for i:=1 to 10 do
begin
a[i]:=-10+random(91);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do if a[i]>max then max:=a[i];
for i:=1 to 10 do
begin
if a[i]>25 then a[i]:=max;
write(a[i]:3);
end;
writeln;
end.