Выведите на экран числа от 100 до 200 вывести на экран

program zz1;
var i:integer; //заводим переменную для цикла
begin
i:=100; //задаем изначальное значение цикла
repeat
write(i, ); // выводим числа на экран в строчку через пробел
i:=i+1; //увеличиваем параметр цикла
until igt;200 ; //указываем условие окончания цикла
writeln;
writeln(квадраты);
i:=-10;
repeat
writeln(i, : ,i*i); // выводим числа на экран в столбец
i:=i+1;
until igt;10 ;
writeln;
writeln(кубы);
i:=-10;
repeat
writeln(i, : ,i*i*i); // выводим числа на экран в столбец
i:=i+1;
until igt;10 ;
end.