turbo pascal 1.5 - deret kelipatan x yang kurang dari y

program deretkelipatanxyangkurangdariy;
uses wincrt;

var
     x,y,i:integer;

begin
     write('X     = ');readln(x);
     write('Y     = ');readln(y);
     write('Deret = ');
     i:=x;
     while x<y do
     begin
          write(x,' ');
          x:=x+i;
     end;
end.