как я понял надо составить блок-схему

задаете числа, и задаете периметр и площадь равный 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.