LP - Software que imprime de 1 a 15 em tela com Repeat - Pascal

Program Pzim ;
var cont,i:integer;

Begin
  cont:=1;
  i:=16;
  Repeat
    begin
      writeln(cont);    
      cont:=cont+1;
    end;
  Until(cont=i);
End.