O comando repeat executa repetidamente uma sequência de comandos "até" (until) que uma dada condição seja verdadeira
Sintaxe:
repeat
until
Observação: este comando não precisa de begin (início) e end (fim) para demarcar o corpo da repetição
Exemplo: Faça um programa para pedir um número, em seguida escrever uma tabuada de multiplicação deste número, caso for digitado o número 0, parar o programa
program tabuada;
uses CRT;
var
num:real;
cont:integer;
begin
repeat
clrscr;
write('Digite um número para ver sua tabuada de multiplicação ');
read(num);
cont:=0;
while cont<10 do {temos aqui uma repetição dentro de outra}
begin
writeln(num:4:2,' x ',cont,' = ',(num*cont):6:2);
cont:=cont+1; {a cada repetição o cont aumenta +1}
end;
readkey; {parada para ver o resultado até ser teclado algo}
until num=0; {condição para parar a repetição principal}
clrscr;
write('Foi digitado o número 0! programa encerrado!');
readkey;
end;