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.
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.