program Tabuada;
uses crt;
var
a,x,w: integer;
op: char;
begin
repeat
clrscr;
write('Entre com o numero da tabuada: ');
read(a);
while x < 10 do
begin
x:= x + 1;
w:= a * x;
writeln( a, 'x' , x , '=' , w);
end;
write('Deseja fazer novamente? (s/n): ');
readln(op);
until(op = 'n');
readkey;
end.
Eu aprendi a programar com Pascal, Passei para o C++, aprendi HTML, PHP, e faço programação com ActionScript do Flash, sei um ouco de JavaScript, jugo essas liguagens faceis, se voce tiver alguma duvida pode me perguntar