Ввести а и б и вывести квадраты и кубы чисел от а до б. Программа Паскаль ​

Ответ:

Var i,a,b:integer;

Begin

Read(a,b);

For i:=a to b do begin

Writeln(i*i);

Writeln(i*i*i);

End;

End.