помогите пожалуйста с инфой срочно!!!

Ответы:

var a,b,c,d:longint,

begin

read(a,b),

If (a+b=90) or (a=90) or (b=90) then

writeln(Прямоугольный) else

if (a+b&lt,180) then

writeln(Существует) 

else

writeln(Нет),

end.

var a,b,c,d:real,

begin read(a,b), if a&lt,=b then beginc:=a, a:=(a+b)/2, b:=2*b*c, end else begin c:=b, b:=(a+b)/2, a:=2*a*c, end, end.

var a,b,c,d:longint,

function max(a,b:longint):longint, begin if a&gt,=b then max:=a else max:=b, end, begin read(a,b), if a&lt,&gt,b then begin a:=max(a,b), b:=max(a,b), end else begin a:=0, b:=0, end,