z zapetleniem

program project1;
      uses crt;
var    wybor,powtorka:integer;
       losowa,gracz,proba,win:integer; //program nr 1
       a,b,c:real; //program nr2

procedure polowienie;
  begin
randomize;
writeln('Gra "Znajdz liczbe"');
writeln('Ile liczb ma byc w grze?');
readln(losowa);
losowa:=random(losowa);

writeln('Tak wiec zaczynamy!');
writeln('Podaj liczbe ktora wedlug Ciebie zostala wylosowana');
readln(gracz);
repeat
proba:=proba+1;
writeln('To jest twoja ',proba,' proba zgadniecia liczby');
if gracz=losowa then
begin
  writeln('Brawo! Zgadles liczbe przy ',proba,' probie');
  writeln('Liczba ktora zgadles to: ',losowa);
  win:=1;
end else
if gracz>losowa then
begin
  writeln('Podales za duza liczbe');
  writeln('Podaj liczbe ponownie');
  readln(gracz);
end else
if gracz<losowa then
begin
  writeln('Podales za mala liczbe');
  writeln('Podaj liczbe ponownie');
  readln(gracz);
end;
until win=1;
    end;

procedure obwtrojkat;
  begin
    writeln;
    writeln('Tak wiec oblicze obwod trojkata');
    writeln('Podaj dlugosci bokow a,b,c (w centymetrach)');
    writeln('Podaj a');
    readln(a);
    writeln('Podaj b');
    readln(b);
    writeln('Podaj c');
    readln(c);
    writeln('Obwod tego trojkata to: ',a+b+c:1:1, ' cm');
  end;

procedure obwkwadrat;
  begin
    writeln;
    writeln('Tak wiec oblicze obwod kwadratu');
    writeln('Podaj dlugosci boku a');
    writeln('Podaj a');
    readln(a);
    writeln('Obwod tego kwadratu to: ',a*4:1:1, ' cm');
  end;

procedure poletrojkat;
begin
  writeln;
  writeln('Tak wiec oblicze pole  trojkata');
  writeln('Podaj dlugosci bokow a,b,h (w centymetrach)');
  writeln('Podaj a');
  readln(a);
  writeln('Podaj h');
  readln(b);
  writeln('Pole tego trojkata to: ',(a*b)/2:1:1, ' cm kwadratowych');
end;

procedure polekwadrat;
begin
writeln;
writeln('Tak wiec oblicze pole kwadratu');
writeln('Podaj dlugosci boku a (w centymetrach)');
writeln('Podaj a');
readln(a);
writeln('Pole tego trojkata to: ',a*a:1:1, ' cm kwadratowych');
end;

procedure program2;
begin
writeln('Wybierz:');
writeln('1- jezeli chcesz obliczyc obwody');
writeln('2- jezeli chcesz obliczyc pola');
readln(wybor);
              if wybor=1 then
              begin
              writeln('1- jezeli chcesz obliczyc obwod trojkata');
              writeln('2- jezeli chcesz obliczyc obwod kwadratu');
              readln(wybor);
                          if wybor=1 then
                          begin
                          obwtrojkat;
                          end else
                          if wybor=2 then
                          begin
                          obwkwadrat;
                          end else
                          writeln('Podales zla liczbe');

              end else
              if wybor=2 then
              begin
              writeln('1- jezeli chcesz obliczyc pole trojkata');
              writeln('2- jezeli chcesz obliczyc pole kwadratu');
              readln(wybor);
                          if wybor=1 then
                          begin
                          poletrojkat;
                          end else
                          if wybor=2 then
                          begin
                          polekwadrat;
                          end else
                          writeln('Wybrales zla liczbe');
              end else
writeln('Zla liczba');
end;

begin
ClrScr;
writeln('Witaj w moim programie');
     while powtorka=0 do
begin

writeln('Wybierz teraz:');
writeln('1-jezeli chcesz pograc w szukanie liczby przez polowienie');
writeln('2- jezeli chcesz obliczyc pola i obwody');
readln(wybor);

if wybor=1 then
begin
polowienie;
end else
if wybor=2 then
begin
program2;
end else
begin
writeln('Podales zla liczbe kliknij enter i program sie zakonczy');
readln;
halt;
end;


         writeln;
writeln('Jak sie gralo lub obliczalo? Spoko?');
writeln('Chcesz aby program wystartowal od nowa?');
writeln;
writeln('0- wlacz od nowa');
writeln('1- zakoncz program');
readln(powtorka);
writeln;

 end;
readln;
end.