С помощью оператора «Выбор» смоделируйте соответствующий калькулятор - Pascal ABC

Формулировка задачи:

С помощью оператора «Выбор» смоделируйте соответствующий калькулятор. В качестве исходных данных для значений селектора используйте символы.

Смоделируйте калькулятор «Параллелограмм», который для данных периметра P, одной из сторон b и острого угла  параллелограмма в зависимости от выбранной геометрической величины позволяет найти: длину второй стороны — «a», площадь — «S», высоту, проведенную к стороне a — «h», большую диагональ — «d».

Решение задачи: «С помощью оператора «Выбор» смоделируйте соответствующий калькулятор»

Листинг программы

uses crt;
var p,b,alfa,a,s,h,d:real;
    w:char;
begin
repeat
writeln('Введите периметр, длину стороны b и острый угол в градусах');
readln(p,b,alfa);
until(p>0)and(b>0)and(b<p)and(alfa>0)and(alfa<90);
repeat
clrscr;
writeln('Что посчитать?');
writeln('a - сторона a');
writeln('s - площадь');
writeln('h - высота к строне а');
writeln('d - большую диагональ');
writeln('Другое - выход');
readln(w);
case w of
'a':begin
    a:=(p-2*b)/2;
    write('длина стороны а=',a:0:2);
    readln;
    clrscr;
    end;
's':begin
    a:=(p-2*b)/2;
    s:=2*a*b*sin(alfa*pi/180);
    write('площадь=',s:0:2);
    readln;
    clrscr;
    end;
'h':begin
    h:=b*sin(alfa);
    write('высота на сторону а=',h:0:2);
    readln;
    clrscr;
    end;
'd':begin
    a:=(p-2*b)/2;
    d:=sqrt(a*a+b*b-2*a*b*cos(pi-alfa*pi/180));//по тереме косинусов
    write('большая диагональ=',d:0:2);
    readln;
    clrscr;
    end;
 else exit;
end;
until not(w in ['a','d','h','s']);
end.

Объяснение кода листинга программы

Ввод данных: периметр, длина стороны b и острый угол в градусах.
Проверка корректности введенных данных.
Выбор операции для выполнения: расчет стороны a, площади, высоты к стороне a или большой диагонали.
Выполнение выбранной операции.
Вывод результата на экран.
Повтор цикла до тех пор, пока пользователь не выберет пункт Другое.