Ввести а и б и вывести квадраты и кубы чисел от а до б пример: введите границы интервала: 4 6 4: 16 64 5: 25 125 6: 36 216

Var
a, b: integer;
begin
write('граница а? ');
readln(a);
write('граница б? ');
readln(b);
for var i:=a to b do
writeln(i, ': ', sqr (i), ' ', i*i*i);
end.