Executa Tabuada do 1 ao 10. Função if and then, Função For.

//Executa Tabuada do 1 ao 10. Função if and then, Função For.

program tabuada;
 uses crt;
     Var
       x      :  integer;
       numero     :  integer;
begin
 writeln ('Digite o Numero Para Executar a Tabuada ');
 writeln();
 readln(numero);

     if (numero < 11) and (numero > 0) then
       begin
          writeln();
          for  x := 1  to 10 do
                 writeln(numero,' ',' x ',' ', x,' ', ' = ',' ',' ',(numero * x ));
                 writeln();
        end
        else if (numero < 0) then
             begin
               writeln ('Numero Negativo Menor que 0, Invalido ', numero);
               end

        else if (numero > 10) then
             begin
                writeln(' Numero Maior que 10 , Invalido ',numero);
                end;


readkey;
end.