Решение во вложении
..............................
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>
во вложении..............................
Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.