Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

спасибо большое

Пожалуйста

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  Writeln('Укажите код заданной величины в правильном треугольнике');  Writeln('1-сторона, 2-площадь, 3-высота, 4-радиус вписанной окружности,');  var k:=ReadInteger('5-радиус описанной окружности:');  var sr3:=Sqrt(3); // часто нужно  case k of  1:begin    var a:=ReadReal('Введите длину стороны треугольника:');    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);    Writeln('Высота треугольника ',a*sr3/2:0:5);    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);    Writeln('Радиус описанной окружности ',a/sr3:0:5)    end;  2:begin    var s:=readReal('Введите значение площади треугольника:');    var a:=Sqrt(4*s/sr3);    Writeln('Сторона треугольника ',a:0:5);    Writeln('Высота треугольника ',a*sr3/2:0:5);    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);    Writeln('Радиус описанной окружности ',a/sr3:0:5)    end;  3:begin    var h:=ReadReal('Введите высоту треугольника:');    var a:=2*h/sr3;    Writeln('Сторона треугольника ',a:0:5);    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);    Writeln('Радиус описанной окружности ',a/sr3:0:5)    end;  4:begin    var r:=ReadReal('Введите радиус вписанной окружности:');    var a:=2*r*sr3;    Writeln('Сторона треугольника ',a:0:5);    Writeln('Высота треугольника ',a*sr3/2:0:5);    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);    Writeln('Радиус описанной окружности ',a/sr3:0:5)    end;  5:begin    var R:=ReadReal('Введите радиус описанной окружности:');    var a:=R*sr3;    Writeln('Сторона треугольника ',a:0:5);    Writeln('Высота треугольника ',a*sr3/2:0:5);    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5)    end;  else Writeln('Введено недопустимое значение')  endend.