Вывести на экран нечётные целые числа,их сумму, а также их квадраты и кубы нечётных целых чисел от 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.