program petla_while;

uses crt;

var
x:integer;

begin
  clrscr;

  repeat 
    read(x);
    writeln('Petla dziala.');
  until x<0; {petla dziala dla liczb nieujemnych}

  repeat until keypressed;
end.