Написать программу решения следующей : составить программу, вычисляющую в зависимости от введённого признака n площадь одной из фигур: n=1 – квадрата, n=2- трапеции, n=3 – круга, n=4 – прямоугольника. в соответствии с введённым признаком выполнить ввод необходимых исходных данных в диалоговом режиме.

1. делим a и b на 33.

2. округляем вверх (до следующего целого)

3. перемножаем округлённые числа.

4. делим на n.

5. округляем вверх.

формулой: x = [([a/33]+1)*( [b/33]+1) / n]   + 1

где [y] - целая часть числа y. 

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.