Сделать программку, определяющую вид треугольника по трем его граням- A,B,C

program raf105;

var

 a,b,c: real;

 x: byte;

begin

 write('Введите длины сторон треугольника: ');

 readln(a,b,c);

 if a = b then

   inc(x);

 if b = c then

   inc(x);

 if c = a then

   inc(x);

 case x of

   0: writeln('Это многосторонний треугольник');

   1: writeln('Это равнобедренный треугольник');

   3: writeln('Это равносторонний треугольник');

 end;

end.

PascalABC 3.4.2