[icWasya]

Как то так

Код:

 
if (a=b)and(b=c) then 
  writeln('treugolnik ravnostoronni') 
else  // сюда попали, если треугольник не равносторонний 
if (a=b) then 
  writeln(treugolnik ravnobedrenni. osnovanie c=',c) 
else  
if (a=с) then 
  writeln(treugolnik ravnobedrenni. osnovanie b=',b) 
else  
if (b=с) then 
  writeln(treugolnik ravnobedrenni. osnovanie a=',a) 
else
  writeln('treugolnik raznostoronnii');