Напишите программу на языке Паскаль для задачи: Ввести числа a и b, и вывести квадраты и кубы целых чисел от a до b. (С использованием циклов)

1)

program square_cube; / / с циклом for

var a, b: integer;

begin

writeln ('enter two numbers with a space ');

readln (a, b);

for i: integer: = a to b do writeln (power (i, 2) : 8, power (i, 3) : 8)

end.

2)

program square_cube1; / /c циклом while

var a, b: integer;

begin

writeln ('enter two numbers with a space ');

readln (a, b);

while (a < b) or (a = b) do

begin

writeln (power (a, 2) : 8, power (a, 3) : 8);

a: = a + 1;

end

end.

3)

program square_cube2; / /с циклом repeat

var a, b: integer;

begin

writeln ('enter two numbers with a space ');

readln (a, b);

repeat

writeln (power (a, 2) : 8, power (a, 3) : 8);

a: = a + 1;

until a = b + 1;

end.