Выведите на экран числа от 100 до 200 вывести на экран квадраты и кубы в диапазоне от - 10 до + 10 используя repeat

program zz1;

var i:integer; / /заводим переменную для цикла

begin

i:=100; / /задаем начальное значение цикла

repeat

write (i,' '); / / выводим числа на экран в строчку через пробел

i:=i+1; / /увеличиваем параметр цикла

until i>200; / /указываем условие окончания цикла

writeln;

writeln ('квадраты');

i:=-10;

repeat

writeln (i,' : ', i*i); / / выводим числа на экран в столбец

i:=i+1;

until i>10;

writeln;

writeln ('кубы');

i:=-10;

repeat

writeln (i,' : ', i*i*i); / / выводим числа на экран в столбец

i:=i+1;

until i>10;

end.