Ввести а и б и вывести квадраты и кубы чисел от а до б

Пример:

Введите границы интервала: 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.