составьте программу которая по трем введенным вами числам найти, могут ли

Program v1;
var a,b,c: real;
begin
readln (a,b,c);
If c gt; a+b then writeln ( 'Такового треугольника не существует');
If a gt; c+b then writeln ( 'Такового треугольника не существует');
If bgt; a+c then writeln ( 'Такового треугольника не существует');
If a=b and a=c  then writeln ('Этот треугольник равносторонний');
If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный');
If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный');
If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный');
If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный');
end.