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.