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

В языке Паскаль для решения задачи по вычислению основания треугольника, зная его площадь и высоту, необходимо использовать формулу площади треугольника:

\[ S = \frac{1}{2} \times \text{основание} \times \text{высота} \]

Отсюда основание можно выразить как:

\[ \text{основание} = \frac{2 \times S}{\text{высота}} \]

Вот пример программы на языке Паскаль, которая реализует данное решение:

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.

В данной программе пользователь вводит площадь и высоту треугольника, после чего программа вычисляет основание и выводит его значение. Обычно, при вводе данных есть проверка на нулевые значения для высоты, так как высота не может быть равной нулю.