Числа a и b — катеты одного треугольника,c и d — катеты другого треугольника,определить являются ли треугольники равно-великими — Pascal(Паскаль)

var
a,b,c,d:integer;
begin
readln(a,b,c,d);
if a*b=c*d then writeln('yes')else writeln('no');
end.

Leave a Comment

56 − 49 =