escreve os números de 1 a 9 com repeat - until
programa de exemplo feito pra escrever os números de 1 a nove com o repeat - until
Descrição
programa de exemplo feito pra escrever os números de 1 a nove com o repeat - until
program Exemplo;
uses crt;
var i: integer;
{escreve os números de 1 a 9}
begin
clrscr;
i:= 1;
repeat
writeln(i);
i:= i+1;
writeln;
until(i=10);
readkey;
end.