var
  n: integer;

begin
  WriteLn('№1. Площадь квадрата / прямоугольника', newLine, '№2. Площадь параллелограмма');
  repeat
    n := ReadLnInteger('Выберите формулу:');
    case n of
      1: WriteLnFormat('Площадь квадрата: {0:f5}', ReadLnReal('Введите длину стороны A:') * ReadLnReal('Введите длину стороны B:'));
      2: WriteLnFormat('Площадь параллелограмма: {0:f5}', ReadLnReal('Введите длину стороны A:') * ReadLnReal('Введите длину стороны h (прилегающей к строне A):'));
    else WriteLn('Ошибка: Неверный диапазон. Повторите ввод...');
    end;
  until n in [1..2];
end.