Ребят,напишите программу в паскале АВС по условию:Используйте вложенное ветвление для определения истинности высказывания:"Треугольник прямоугольный и равнобедренный"

Readln(a); 
readln(b); 
readln(c); 
if (a=b) and (b=c) then 
write("треуг равносторонний") 
else 
if (a=b) or (a=c) or (b=c) then 
write("треугольник  равнобёдренный") 
end