var wybor:integer;
  a,b,c:real;

  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;