Информатика "Программирование разветвляющихся...

Информатика "Программирование разветвляющихся алгоритмов" 1. Написать программу, определяющую по длинамсторон A. B. C, является ли треугольник равнобедренным.

 

var a,b,c,r,x,y:integer;
Begin
  read(a,b,c);
  if (a=b) or (a=c) or (b=c) then
     writeln('Ravnobedrennyj');
 
  read(a,r);
  if  (a*a>pi*r*r) then writeln('Kvadrat bolshe')
  else writeln('Krug bolshe');
 
  read(x,y);
  if x>y then writeln(y*y,' ',x*x*x,' ',(x+y)/2);
  else writeln(x*x,' ',y*y*y,' ',(x+y)/2);
End.