Напечатать целые числа - 20, - 15, - 0,5,10,15,20 в pascal с операторов for или while

Program cikl;
uses crt;
var x,y:integer;
begin
write('веди нужное число');
read(x);
for y:=-25 to x do
write(' ',y);
inc(y);
end.