Program petla_while;
uses crt;
var
x : integer;
licznik: integer;
begin
clrscr;
writeln('Ilustracja dzialania petli while. Wpisanie 0 (zero) kończy pętlę');
write('Podaj zmienna x:');

readln(x);

while x<>0 do
begin
     writeln('Wykonuje iteracje tak dlugo jak x bedzie rozne od 0, teraz x= ',x);
     writeln('wpisz cyfre dla kolejnego wykonania petli');
     writeln('wartosc 0 (zero) zakonczy dzialanie petli');
     licznik:=licznik+1;
     writeln('ilosc przebiegow petli = ',licznik);
     write('x = ');
     readln(x);
end;
writeln('Koncze dzialanie nacisnij ENTER');
readln;
end.