program trojkat_prostokat;
uses crt;
var a,b,c,wynik:real;
    wybor:integer;

    //deklaracja procedur figur
  procedure trojkat (a,b,wynik:real);
begin
writeln('Oblicze pole trojkata');
writeln('Wartosc a to ',a:1:1);
writeln('Wartosc h to ',b:1:1);
wynik:=(a*b)/2;
writeln('Wynik to ',wynik:1:1);
end;

procedure prostokat (a,b,wynik:real);
begin
writeln('Oblicze pole prostokata');
writeln('Wartosc a to ',a:1:1);
writeln('Wartosc b to ',b:1:1);
wynik:=a*b;
writeln('Wynik to ',wynik:1:1);
end;

procedure romb (a,b,wynik:real);
begin
writeln('Oblicze pole rombu');
writeln('Wartosc d1 to ',a:1:1);
writeln('Wartosc d2 to ',b:1:1);
wynik:=(a*b)/2;
writeln('Wynik to ',wynik:1:1);
end;

procedure trapez (a,b,c,wynik:real);
begin
writeln('Oblicze pole trapezu');
writeln('Wartosc a to ',a:1:1);
writeln('Wartosc b to ',b:1:1);
writeln('Wartosc c to ',c:1:1);
wynik:=((a+b)/2)*c;
writeln('Wynik to ',wynik:1:1);
end;

procedure prostopadloscian (a,b,c,wynik:real);
begin
writeln('Oblicze objętosc prostopadloscianiu');
writeln('Wartosc a to ',a:1:1);
writeln('Wartosc b to ',b:1:1);
writeln('Wartosc c to ',c:1:1);
wynik:=a*b*c;
writeln('Wynik to ',wynik:1:1);
end;
    //deklaracja procedur readln
procedure liczby2;
begin
writeln('Podaj a');
readln(a);
writeln('Podaj b');
readln(b);
end;

procedure liczby3;
begin
writeln('Podaj a');
readln(a);
writeln('Podaj b');
readln(b);
writeln('Podaj c');
readln(c);
end;
    //koniec deklaracji procedur

begin
writeln('Prosze o wybranie co chcesz zrobic');
writeln('1- jeżeli chcesz obliczyć pole trójkąta');
writeln('2- jeżeli chcesz obliczyć pole prostokata');
writeln('3- jeżeli chcesz obliczyc pole rombu');
writeln('4- jezeli chcesz obliczyc pole trapezu');
writeln('5- jezeli chcesz obliczyc objetosc prostopadloscianiu');
readln(wybor);

if wybor=1 then
  begin
    liczby2;
    trojkat(a,b,wynik);
  end else
  if wybor=2 then
    begin
     liczby2;
     prostokat(a,b,wynik);
    end else
    if wybor=3 then
      begin
       liczby2;
       romb(a,b,wynik);
      end else
      if wybor=4 then
        begin
         liczby3;
         trapez(a,b,c,wynik);
        end else
        if wybor=5 then
          begin
           liczby3;
           prostopadloscian(a,b,c,wynik);
          end else
          writeln('Podales bledna liczbe wyboru, sprobuj ponownie!!');

writeln;
writeln('To juz koniec programu, dziekuje za skorzystanie');



  readln;
end.