program CubeOddNumbers;
vari, result: integer;
beginfor i := 1 to 20 dobeginif (i mod 2 <> 0) thenbeginresult := i i i;writeln′Кубчисла′,i,′=′,result'Куб числа ', i, ' = ', result′Кубчисла′,i,′=′,result;end;end;end.
program CubeOddNumbers;
var
i, result: integer;
begin
for i := 1 to 20 do
begin
if (i mod 2 <> 0) then
begin
result := i i i;
writeln′Кубчисла′,i,′=′,result'Куб числа ', i, ' = ', result′Кубчисла′,i,′=′,result;
end;
end;
end.