Complete app

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

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;

procedure kalkulator;
begin
writeln('Witaj w kalkulatorze!');
writeln('Tak wiec powiedz pierwsze co chcesz zrobic');
writeln('Wybierz:');
writeln('1- dodawanie');
writeln('2- odejmowanie');
writeln('3- mnozenie');
writeln('4- dzielenie');
readln(wybor);
case wybor of
1:
  begin
  writeln('Tak wiec wykonamy dodawanie');
  writeln('Podaj liczbe a');
  readln(la);
  writeln('Podaj liczbe b');
  readln(lb);
  writeln('Wynik dodawania ',la:1:1,'+',lb:1:1,' to ',la+lb:1:1);
  end;
2:
  begin
  writeln('Tak wiec wykonamy odejmowanie');
  writeln('Podaj liczbe a');
  readln(la);
  writeln('Podaj liczbe b');
  readln(lb);
  writeln('Wynik odejmowania ',la:1:1,'-',lb:1:1,' to ',la-lb:1:1);
  end;
3:
  begin
  writeln('Tak wiec wykonamy mnozenie');
  writeln('Podaj liczbe a');
  readln(la);
  writeln('Podaj liczbe b');
  readln(lb);
  writeln('Wynik mnozenia ',la:1:1,'*',lb:1:1,' to ',la*lb:1:1);
  end;
4:
  begin
  writeln('Tak wiec wykonamy dzielenie');
  writeln('Podaj liczbe a');
  readln(la);
  writeln('Podaj liczbe b');
  readln(lb);
  writeln('Wynik dzielenia ',la:1:1,'/',lb:1:1,' to ',la/lb:1:1);
  end else
    writeln('Wybrales zly numer');
    writeln('Koniec programu, wcisnij enter');
    readln;
    halt;
end; end;



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

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

if wybor=1 then
begin
polowienie;
end else
if wybor=2 then
begin
program2;
end else
if wybor=3 then
begin
kalkulator;
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;
textcolor(green);
writeln('0- wlacz od nowa');
writeln('1- zakoncz program');
readln(powtorka);
writeln;

 end;
end.