contoh program sederhana (kondisi)

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.