Турбо Паскаль. Оператор варианта

[lilia2121]

Мне не ловко, но не могли бы вы помочь с задачей.
Составить программу вычисления площадей различных геом. фигур:

[sllh_111]

А по подробнее можно? каких именно фигур? да и условие тоже не помешало бы.

[Филантроп]

a,b,r,h,s:real;
n:integer;
begin
readln(n);
case n of 
1:begin readln(a);readln(b);s:=a*b;end;
2:begin readln(a);readln(b);s:=a*b/2;end;
3:begin readln(a);readln(b);readln(h);s:=(a+b)*h/2;end;
5:begin readln(h);readln(r); s:=pi*r*r*h/360;end;
end;
writeln('s=',s:6:2);
readln;
end.