Ejemplo ciclo for pascal

Bueno aquí otro ejemplo en turbo pascal en esta ocasión mostrare el uso del for sacando la multiplicación de los primeros 10 números del numero introducido:

aqui el codigo

Program P3AE4 (input,output);

uses

 crt; 

Var

 numero,i,total,fact: Integer;

Begin

     writeln('Introdusca numero del cual quiere ver su multiplicacion del 1 al 10:');

  readln(numero);            

  

  for i:=1 to 10 do

    begin

    total:=numero*i;

      writeln(numero,' * ',  i,' = ',total);

  

   end;

readkey;



end.

Descargar código:

Link

Turbo Pascal