Hogyan oldjam meg? (Free Pascal ) (Lazarus)

Én, ha a feladatot jól értem, így csinálnám:

program szamol;

var x,s : integer;

begin

x:=5; //innen indul a számolás

s:=2; //ennyivel léptetjük az X-et

while x<=11 do //ciklus amíg x kisebb vagy egyenlő mint 11

begin

writeln(x); //kiírjuk x értékét

inc(x,s) //növeljük az x értékét s-el

end;

end.