Даны 3 действующих числа выберете из них те которые принадлежат отрезку от 0 до 10 ? ?

Var a,b,c:integer;
begin
writeln('vvedite tri cisla=');
readln(a,b,c);
if (a>0) and (a<10) then
 write(' ',a);
if (b>0) and (b<10) then write(' ',b);
if (c>0) and (c<10) then write(' ',c);
end.
Успехов :)