Помогите с информатикой пожалуйста.
Нужно вывести на экран квадраты и кубы нечетных целых чисел от 1 до n.

Ты жосткий)

Ну а смысл писать как "отцы и деды завещали" ?

Pascalvar n, i: longint;beginread(n);for i:=1 to n do    if i mod 2=1 then writeln(i,'^2 = ', i*i, '    ', i, '^3 = ', i*i*i);end.