Resposta do Exercício de PASCAL - Programa Tabuada

Program tabuadamultiplicar ;

var

numero, n1,n2,n3,n4,n5,n6,n7,n8,n9,n10: integer;

Begin

writeln ('Digite um numero: ');

read (numero);

n1 := numero * 1;

n2 := numero * 2;

n3 := numero * 3;

n4 := numero * 4;

n5 := numero * 5;

n6 := numero * 6;

n7 := numero * 7;

n8 := numero * 8;

n9 := numero * 9;

n10 := numero * 10;

writeln (numero,'* 1 = ',n1);

writeln (numero,'* 2 = ',n2);

writeln (numero,'* 3 = ',n3);

writeln (numero,'* 4 = ',n4);

writeln (numero,'* 5 = ',n5);

writeln (numero,'* 6 = ',n6);

writeln (numero,'* 7 = ',n7);

writeln (numero,'* 8 = ',n8);

writeln (numero,'* 9 = ',n9);

writeln (numero,'* 10 = ',n10);

End.