Progmam Menentukan Segitiga

Program Menentukan_Segitiga;
Uses Wincrt;
Var A,B,C,X,Y:integer;
Begin
  Writeln('Program Menentukan Segitiga');
  Writeln('=========================');
  Writeln;
  Write('Masukkan Sisi A: ');readln(A);
  Write('Masukkan Sisi B: ');readln(B);
  Write('Masukkan Sisi C: ');readln(C);
  Writeln;
  X:=sqr(C);
  Y:=sqr(A)+sqr(B);
  if (X<Y) then
     Writeln('Segitiga Lancip')
  else if (X=Y) then
     Writeln('Segitiga Siku-Siku')
  else
     Writeln('Segitiga Tumpul')
End.