Создайте программу на pascalabc, используя if then для рачета полупериметра треугольника (a+b+c)/2. если a< > 0 и т.д. и a+b> c и т.д.

Var a,b,c:real;
begin
  readln(a,b,c);
  if (a<>0) and (a+b>c) then writeln ((a+b+c)/2)
     else
         writeln('Неверные входные значения');
end.