На вход подается число не меньше 0.вывести число от данного до 10. если число изначально больше 10 завершить программу

Program lol;
var a:integer;
beginreadln(a);
if(a>0) and (a<10) then writeln(a)
else
end.