Вывести на экран нечётные целые числа, их сумму, а также их квадраты и кубы нечётных целых чисел от 1 до 9

var

i, s:integer;

begin

write ('Нечётные числа: ') ;

for i:=1 to 9 do

if i mod 2=1 then

write (i,' ') ;

write (' Cумма: ') ;

for i:=1 to 9 do

if i mod 2=1 then

s:=s+i;

write (s,' ') ;

write (' Квадрат: ') ;

for i:=1 to 9 do

if i mod 2=1 then

begin

s:=i*i;

write (s,' ') ;

end;

write (' Куб: ') ;

for i:=1 to 9 do

if i mod 2=1 then

begin

s:=i*i*i;

write (s,' ') ;

end;

end.