Написать программу на языке программирования Pascal с использованием условного оператора и цикла WHILE Задача: Вывести на экран кубы чисел от X до Y, которые с клавиатуры вводит пользователь.

program mys;

var

x,y,d,i:integer;

begin

   write('Введите x: ');  

   readln(x);

   write('Введите y: ');  

   readln(y);

   if x > y then  

   begin

   d := x;

   x := y;

   y := d;  

   end;

   i := x;

   while (i <= y) do

   begin

       writeln(i * i * i);

       i := i + 1;

end;        

end.