PROGRAM PASCAL MENGGUNAKAN IF THEN

program point1;
uses wincrt;
var point:byte;
begin
    writeln('               *           Dibuat oleh              *                 ');
    writeln('               |      NAMA : RIKI SEPRIYANTO        |                 ');
    writeln('               |      NPM  : 13010241               |                 ');
    writeln('               *         copyright 2013             *                 ');
    writeln('            ============================================              ');
write('masukkan point anda = ');readln(point);
If point>100 Then
Writeln('Selamat Anda Menang')
else
writeln('Anda Belum Beruntung');
end.