Даны три натуральных числа. напишите программу в паскале , определяющую , существует ли треугольник с такими длинами сторон. Если такой существует , то определите его тип (равносторонний , равнобедренный, разносторонний) СРОЧНО! ЗАРАНЕЕ СПАСИБО.

Var
a,b,c,k:integer;
begin
readln(a,b,c);
if (a+b>c)and(b+c>a)and(a+c>b) then begin
writeln(треугольник существует);
k:=1
end
else writeln(треугольник не существует);
if (a=b)and(a=c) and (k=1) then
writeln(равносторонний);
if (((a=b)and(ac))or((c=b)and(ca))or((c=a)and(cb)))and (k=1) then
writeln(равнобедренный);
if (ab)and(cb)and(ac)and (k=1) then
writeln(разносторонний)
end.