Составить программу. Заданы катеты двух прямоугольных треугольников. Сравнить их площади. S=(a*b) /2
​

program vld;

var

a1,b1,a2,b2, s1,s2 : real;

begin

writeln('Введите катеты первого треугольника');

read(a1,b1);

writeln('Введите катеты второго треугольника');

read(a2,b2);

s1 := (a1 *b1 ) / 2;

s2 := (a2 * b2) / 2;

if s1 > s2 then

writeln('Площадь первого треугольника больше площади второго');

if s2 > s1 then

writeln('Площадь второго треугольника больше площаде первого');

if s1 = s2 then

writeln('Площади равны');

end.