program petla_while;

uses crt;

var
x:integer;

begin
  clrscr;
  
  read(x);

  while x>0 do {petla dziala dla liczb dodatnich}
  begin
   writeln('Wczytane x=',x);
   readln(x);
  end;

end.