Нужно решить задачу по информатике:
число a и b - катеты одного треугольника, c и d - катеты другого. Определите, являются ли эти треугольники равновеликикими.

Программа - Паскаль
по шаблону

prorram ...
Var ...
Begin ...
If ...
Then ...

а нужно a,b,c,d,<0?

Можно

Только >

как будет выглядеть блок схема?

Program prog;var  a,b,c,d: real;beginreadln(a,b,c,d);if (a>0) and (b>0) and (c>0) and (d>0)  then beginif (a*b = c*d)   thenwriteln('Являются')else  writeln('Не являются')end;end.