Напишите программу в PASCAL, используя while do

Даны действительные числа x, y. Найти сумму кубов всех целых чисел, расположенных между х и у, а также количество этих чисел.

Uses Crt; var x,y,n,s:longint; i:integer; begin write('x='); read(x); write('y='); readln(y); s:=0; n:=0; for i:=x+1 to y-1 do begin s:=s+sqr(i)*i; inc(n); end; writeln('summ=',s,' kol-vo=',n); end.