var a,b,c,grad:integer;beginwriteln('Scritei a,b,c');readln(a,b,c);grad:=1;if a=b thenif b=c thenwriteln('Echilateral');if a=b thenif b<>c then beginwriteln('scrieti gradele 0=nu are importanta');readln(grad);end;if grad=0 thenwriteln('Isoscel');if grad=90 thenwriteln('Dreptunghic isoscel')else if a<>b thenif b<>c thenwriteln('Dreptunghic'); end.