[4u4undrik]

здравствуйте,помогите пожалуйста с решением задачи:
Даны три целых неотрицательных числа a, b, c, являющихся длинами сторон треугольника. Проверить, является ли он равносторонним, равнобедренным (в этом случае надо указать длину неравной стороны) или разносторонним.

как указать длину стороны именно в случае равнобедренного???

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }

   begin

writeln('vvedite a b c');
readln(a,b,c);


 if (a=b)and(b=c) then writeln('treugolnik ravnostoronni')
else
  if (a=b)or(a=c)or(b=c) then writeln('treugolnik ravnobedrenni')
  else writeln('treugolnik raznostoronnii');

 end;
readln;
end.

[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');    

[4u4undrik]

попробую так сделать,спасибо)