Program Menentukan Segitiga Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Program menentukan segitiga...
Pada program kali ini kita akan membuat sebuah program untuk menentukan sebuah nilai apakah nilai tersebut menghasilkan segitiga lancip, tumpul atau siku-siku, selamat menikmati ya
:D

 Program Menentukan_Segitiga;
Uses crt;
Var A,B,C,X,Y:integer;
Begin
clrscr;
  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
    Writeln('Segitiga Lancip')
  else if (X=Y) then
    Writeln('Segitiga Siku-Siku')
  else
    Writeln('Segitiga Tumpul');
readln;
End.

kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :  

jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D

Sudah Baca Yang Ini..?