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-sala...