repeat
   readln(a,b,c);
until (a=b)and(b=c);

writeln(' Ввод A, B, C: ');
readln( A, B, C );
if ( A = B ) and ( A = C ) then {ищем периметр и площадь...}

Program tr;
   Var a,b,c,P,S:real;
begin
  repeat
    writeln('Введите три стороны треугольника');
    readln(a,b,c);
  until (a>0) and (b>0) and (c>0);
if (a=b) and (a=c) then do begin
  writeln('Треугольник равносторонний ');
P:=a+b+c;
S:1/2*a*b*sin 60;
  else writeln('Треугольник не равносторонний, повторите ввод');
    writeln('площадь треугольника S=' , S:8:3);
    writeln('периметр треугльника P=' , P:8:3);
  end;
 readln;
end.

if (a=b) and (a=c) then {do} begin

begin
  repeat
    writeln('Введите три стороны треугольника');
    readln(a,b,c);
  until (a>0) and (b>0) and (c>0);

  if (a=b) and (a=c) then begin
    writeln('Треугольник равносторонний ');
    P:=a+b+c;
    S:=1/2*a*b*sin(60);
    writeln('площадь треугольника S=' , S:8:3);
    writeln('периметр треугльника P=' , P:8:3);
  end
  else writeln('Треугольник не равносторонний, повторите ввод');

  readln;
end.