[lmikle]

ну и?
Как я понял - консоль.
тогда типа:

Код:

Program Ploschad;

{$APPTYPE CONSOLE}

function sTriangle : Double;
begin
  ...
end;

function sPoligone : Double;
var
  W. H : Double;
begin
  write('Укажите ширину: '); readln(W);
  write('Укажите высоту: '); readln(H);
  result := W*H;
end;

function sCircle : Double;
begin
  ...
end;

var
  S : Double;
  F : Integer;
begin
  writeln('Фигура');
  writeln('1 - Треугольник');
  writeln('2 - Прямоугольник');
  writeln('3 - Круг');
  write('Выберите фигуру:'); readln(F);

  case F of
    1 : S := sTriangle;
    2 : S := sPoligone;
    3 : S := sCircle'
    else
      begin
        WriteLn('Неверный выбор');
        Exit;
      end;
  end;
  WriteLn('Площадь указанной фигуры S = ',S);
end.

для одной функции расчет написал. для остальных - "сама, сама", лень формулы искать