Квадраты и кубы чисел от 1 до 8 программирование abc pascal

Question

Квадраты и кубы чисел от 1 до 8 программирование abc pascal

Answer 1

Var i:longint;
Begin
for i:=1 to 8
write(i*i,' ',i*i*i,' '); // <квадрат> <куб>
writeln;
End.