Program petla_repeat;
uses crt;
var
x :integer;
licznik: integer;
begin
clrscr;
writeln('Ilustracja dzialania petli repeat. Wpisanie 0 (zero) kończy pętlę');
write('Podaj zmienna x:');
readln(x);
repeat
     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);
until x=0;

writeln('Koncze dzialanie nacisnij ENTER');
readln;
end.