[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.