Jedno zadanie w pascalu. Program do obliczania pola figur.

Program KPSK;
var a, b, c, d, e, f, h, wynik: real;
    z: integer;
    begin
              writeln ('wybierz 1 dla obliczenia pola kwadratu');
              writeln ('wybierz 2 dla obliczenia pola prostokata');
              writeln ('wybierz 3 dla obliczenia pola rombu');
              writeln ('wybierz 4 dla obliczenia pola trojkata rownobocznego');
         readln(z);
         case z of
            1: begin
                    writeln('podaj bok');
                    readln(a);
                    wynik:=a*a;
                    writeln('kwadrat o boku=, a, ma pole=', wynik:2:2);
                    end;
            2: begin
                    writeln('podaj krotszy bok');
                    readln(b);
                    writeln('podaj dluzszy bok');
                    readln(c);
                    wynik:=b*c;
                    writeln('pole prostokata o bokach, b ,i , c,wynosi' ,wynik:2:2);
                    end;
            3: begin
                    writeln('podaj pierwsza przekatna');
                    readln(e);
                    write('podaj druga przekatna');
                    readln(f);
                    wynik:=(e*f)/2;
                    writeln('pole rombu o przekatnych , e, i , f,wynosi' , wynik:2:2);
                    end;
            4: begin
                    writeln('podaj bok trojkata');
                    readln(d);
                    writeln('podaj wysokosc trojkata');
                    readln(h);
                    wynik:=(d*h)/2;
                    writeln('pole trojkata rownobocznego o boku , d, i wysokosci , h,wynosi ', wynik:2:2);
                    end;
                    end;
      end.

writeln('pole trojkata rownobocznego o boku ', d,' i wysokosci ', h,' wynosi ', wynik:2:2);

var a, b, c, d, e, f, h, wynik: real; 
    z: integer; 
    begin
        repeat
        {tutaj cała treść programu}
        Write('Czy ponowić obliczenia? ');
        ReadLn(ch);
        until UpCase(ch) <> 'T';
    end.