Напишите задачу в Паскале

Треугольник задан длинами сторон. Если такой треугольник существует, то сообщить какой он: Равносторонний, равнобедренный или разносторонний

Var a, b, c : real;

begin

write ('a=') ;

readln (a) ;

write ('b=') ;

readln (b) ;

write ('c=') ;

readln (c) ;

if (a+b<=c) or (a+c<=b) or (b+c<=a)

then writeln ('Треугольника не существует')

else if (ab) and (bc) and (ac)

then writeln ('Треугольник разносторонний')

else if (ab) or (bc) then writeln ('Треугольник равнобедренный')

else writeln ('Треугольник равносторонний') ;

end.

Пример:

a=3

b=4

c=6

Треугольник разносторонний