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

Var a,b,c,d: longint; beginread (a,b); If (a+b=90) or (a=90) or (b=90) thenwriteln ('Прямоугольный') elseif (a+b<180) thenwriteln ('Существует') elsewriteln ('Нет'); end.var a,b,c,d: real; begin read (a,b); if a <= 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>=b then max: =a else max: =b; end; begin read (a,b); if a<>b then begin a: =max (a,b); b: =max (a,b); end else begin a: =0; b: =0; end;