«дана площадь треугольника и его высота найдите и выведите его основание» Напишите это на языке Паскаль

В языке Паскаль для решения задачи по вычислению основания треугольника, зная его площадь и высоту, необходимо использовать формулу площади треугольника: \[ S = \frac{1}{2} \times \text{основание} \times \text{высота} \] Отсюда основание можно выразить как: \[ \text{основание} = \frac{2 \times S}{\text{высота}} \] Вот пример программы на языке Паскаль, которая реализует данное решение: ```pascal program TriangleBase; var area, height, base: real; begin // Запрос площади треугольника writeln('Введите площадь треугольника:'); readln(area); // Запрос высоты треугольника writeln('Введите высоту треугольника:'); readln(height); // Проверка на нулевую высоту if height = 0 then begin writeln('Высота не может быть равна нулю.'); end else begin // Вычисление основания base := (2 * area) / height; // Вывод результата writeln('Основание треугольника равно: ', base:0:2); end; end. ``` В данной программе пользователь вводит площадь и высоту треугольника, после чего программа вычисляет основание и выводит его значение. Обычно, при вводе данных есть проверка на нулевые значения для высоты, так как высота не может быть равной нулю.