[Pascal] Programa Tabuada

[Edua®do]

Galera, Boa Tarde!!!

Preciso de uma ajuda de vocês, estou fazendo um programinha para calcular tabuadas, pois no final ele pede para continuar até o usuário querer senão terminar o programa, meu código ficou assim, feito em pascal.

program Tabuada;
uses crt;
var
  a,x,w: integer;
  
begin
  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;
    readkey;
end.

Como eu faço para o programa continuar fazendo o loop até o usuário querer parar, tentei colocar um loop no começo não deu certo usei if mas tb não deu certo, por favor vocês podem me ajudar?

Desde já agradeço a atenção de todos.

[kandrade]

Voce vai precisar de dois loops nesse caso.

Supondo que a tabuada de 0 sai do programa. Veja como poderia ficar:

write('Entre com o numero da tabuada: ');
    read(a);
while a <> 0 do
    x:= 0;
    while x < 10 do
       begin
            x:= x + 1;
            w:= a * x;
            writeln( a, 'x' , x , '=' , w);
    end;
    write('Entre com o numero da tabuada: ');
    read(a);
end;

[Jonathan Queiroz]

Movendo: Lógica de programação --> Outras linguagens de programação.