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

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' Введите границы интервала : ');

read (a); / / вводим с клавиатуры первое число

read (b); / / вводим с клавиатуры второе число

writeln (' Полученные числа: ');

for i:=a to b do

write (' ', i,' ', i * i, ' ', i * i * i); / / выводим ответ

end.