var
  a,b,c:real;
begin
  Read(a,b,c);
  if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
  else Writeln('Треугольник не равносторонний')
end.

Пример
15 15.0 15.0000
Треугольник равносторонний

var
  m,n,mx:integer;
begin
  Read(m,n);
  if m>0 then
    if m>n then n:=m else m:=n
  else begin m:=0; n:=0 end;
  Writeln('m=',m,', n=',n)
end.

Пример
7 2
m=7, n=7