Составить программу, вычисляющую площадь фигуры. тип фигуры определяется символом (с): о – окружность, t – равнобедренный прямоугольный треугольник и k – квадрат. целое число, вводимое вслед за символом определяет соответствующий элемент для вычисления площади (для окружности это радиус, для треугольника – длина катета, для квадрата – длина стороны).

Var s,  x, a, b, r: real; c: string; begin writeln('chto budem vichislat'); readln(c); if c = 'o' then begin writeln('radius'); readln(r); s: = pi*sqr(r); end; if c: = 't' then begin writeln('vvedite 1 katet); readln(a); writeln('vvedite 2 katet); readln(b); s: = 1/2 * a  *  b; end; if c: = 'k' then begin writeln('vvedite 1 katet); readln(a); s: = sqr(a); end; writeln('ploshad = '); readln(s); end.

не ворую

не лгу

слабым