program obliczenia;
uses crt;

  var { deklaracja zmiennych }
    wmin, wmax: real;
    wynik, pole: real;
    wybor: integer;
    w: char;
    a, h, r, b: real;


    begin
 repeat

     clrscr;
     writeln('Program oblicza pola:');
     writeln('1) trojkata');
     writeln('2) prostokata');
     writeln('3) kola');
     writeln('co liczymy ?:');
     readln(wybor);

     if wybor =1 then
     begin
     write('Podaj dlugosc podstawy: ');
     readln(a);
     write('Podaj maksymalna wysokosc: ');
     readln(wmax);
     h:=1;
 repeat
     Pole:= 1/2*a*h;
     write('dla h = ',h:5:0);
     write(' Pole = ',Pole:8:3);
     writeln;
     h:=h+1;
 until h>wmax;
     end

     else if wybor = 2 then
     begin
     write('podaj dlugosc boku a: ');
     readln(a);
     write('podaj maksymalna dlugosc boku b: ');
     readln(wmax);
     b:=1;
     repeat
     pole:=a*b;
     write('dla b = ',b:5:0);
     write(' pole = ',pole:8:3);
     writeln;
     b:=b+1;
     until b>wmax;
     end

     else if wybor=3 then
     begin
     write('podaj minimalna dlugosc promienia r: ');
     readln(r);
     write('podaj maksymalna dlugosc promienia r: ');
     readln(wmax);
  repeat
     pole:=Pi*sqr(r);
     write('dla r = ',r:5:0);
     write('pole = ',pole:8:3);
     writeln;
     r:=r+1;
  until r>wmax;
     end

     else writeln ('zly wybor (tylko 1-3)');

 write('Czy chcesz zakończyć? T/N');
 readln(w);
 until w='t';

 end.