VAR
wybor:integer;
a,b:real;

CONST PI=3.14;

function pole_kola(r:real):real; {funkcja obliczajaca pole kola}
begin
        pole_kola:=PI*r*r;
end;

function pole_prostokata(a,b:real):real; {funkcja obliczajaca pole prostokata}
begin
      pole_prostokata:=a*b;
end;

function pole_trojkata_rowno(a:real):real;
begin
        pole_trojkata_rowno:=a*a*sqrt(3)/4;
end;

procedure wypisz(pole:real); {funkcja wypisujaca wynik}
BEGIN
        writeln('Pole figury = ', pole:4:4);
end;

procedure podaj_promien();
BEGIN
        writeln('Podaj promien');
        readln(a);
end;

procedure podaj_boki();
BEGIN
        writeln('Podaj boki prostokata');
        readln(a,b);
end;

procedure podaj_bok();
begin
        writeln('Podaj bok trojkata');
        readln(a);
end;

BEGIN
        writeln('Jakiej figury pole chcesz policzyc?');
        writeln('1. kola');
        writeln('2. prostokata');
        writeln('3. trojkata rownobocznego');
        readln(wybor);
        CASE wybor OF
        1: begin
           podaj_promien();
           wypisz(pole_kola(a));
           end;
        2: begin
           podaj_boki();
           wypisz(pole_prostokata(a,b));
           end;
        3: begin
           podaj_bok();
           wypisz(pole_trojkata_rowno(a));
           end;
        end;
        readln;

end.