Даны 3 числа a,b,c. Нужно если треугольник прямоугольный найти его площадь, если он не прямоугольный то периметр. пожалуйста))) ну мы в классе решали типа   если а+б больше с и a+c больше b и c+b больше 0  то вывод  фигура треу...

как я понял надо составить блок-схему задаете числа, и задаете периметр и площадь равный 0 условие что все больше 0 если да то дальше если нет то конец после этого сразу проверка на ваши больше и меньше 0 и тому прочее если не выполняется какое-то условие то конец,если все вып. то опять условие  с^2=a^2+b^2 если да то выполнить действие S=a*b   вывод s  end если нет то P=a+b+c   вывод p  end   

{кажется так. если будет ощибка в ЛС напиши} program rrr; uses crt; var a,b,c,s:integer; {если будут дробные значения то вместо integer ставь real} begin writeln('Введи стороны треугольника: '); read(a,b,c); if a*a=b*b+c*c then begin s:=b*c/2; writeln('Площадь=',s); end else if b*b=a*a+c*c then s:=a*c/2; writeln('Площадь=',s); end else if c*c=a*a+b*b then s:=a*b/2; writeln('Площадь=',s); end else s:=a+b+c; writeln('Периметр= ',s); readln; end.