program obliczenia;
uses crt;

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

procedure poletrojkata;
     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;

procedure poleprostokata;
     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;

procedure polekola;
     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;


    begin

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

     case wybor of
     1: poletrojkata;
     2: poleprostokata;
     3: polekola;
     else writeln ('zly wybor (tylko 1-3)')
     end;
      write('Czy chcesz zakończyć? T/N');
      readln(w);
 until w='t';

 end.