TPW 1.5

program sudut;

uses wincrt;

var
a:Longint;

begin

repeat
ClrScr;
writeln('program mengetahui jenis sudut');
write('masukkan besar sudut[1..180]:');
readln(a);



Until
(a in[1..180]);

writeln;

if a in[1..89] then write('sudut lancip')
else
       if a=90 then write('sudut siku-siku')
      else
             if a in[91..179] then write('sudut tumpul')
             else
                     if a=180 then write('sudut berpelurus');

readln

End.

 _________________________________________________________________

Tampilan dari program di atas :