10 kolejnych liczb nieparzystych

program ForToDo;
var licznik,podanaliczba,x:longint;
begin
x:=0;
writeln('Prosze podac nieparzysta liczbe.');
readln(podanaliczba);
for licznik:=0 to 9 do
begin
x:= x + 2;
writeln(podanaliczba + x);
end;
readln;
end.