Program Kelulusan (Pascal)

Berikut sintaks program kelulusan :

program Nilai_PPKN_Penjaskes_KTK;
uses crt;
var x,y,z:integer;

begin
      clrscr;
      gotoxy(30,1);write('PROGRAM KELULUSAN');
      gotoxy(25,3);write('Masukkan nilai PPKN      : ');
      gotoxy(25,4);write('Masukkan nilai Penjaskes : ');
      gotoxy(25,5);write('Masukkan nilai KTK       : ');
      gotoxy(52,3);readln(x);
      gotoxy(52,4);readln(y);
      gotoxy(52,5);readln(z);

      if (x>=80) and (y>=75) and (z>0) then
         begin
         gotoxy(30,7);write('Selamat, Anda lulus');
         end
         else

      if (y>=90) or (z>=30) and (x>=10) then
         begin
         gotoxy(30,7);write('Selamat, Anda lulus');
         end
         else

      if (z>=75) and (y>=65) and (x>0) then
         begin
         gotoxy(30,7);write('Selamat, Anda lulus');
         end
         else

      begin
      gotoxy(30,7);write('Maaf, Anda tidak lulus');
      end;

      readln;
end.

Selamat mencoba.