Напишите программу в паскале авс по условию: используйте вложенное ветвление для определения истинности высказывания: "треугольник прямоугольный и равнобедренный"

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