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

1)program gt;var x:integer;beginx:=99;repeatx:=x+1;  write(x,' ');until x=200;end.2)program gt;var x:integer;beginx:=-11;repeatx:=x+1;  writeln(x*x,' ',x*x*x);until x=10;end.