Program Skor Beladiri (pascal)

uses crt;
var
jumlahpukul, jumlahtendang, nilai:integer;

begin
  write('Jumlah pukulan:');
  read(jumlahpukul);
  write(' Jumlah tendangan:');
  read(jumlahpukul);
  nilai:= jumlahpukul*jumlahtendang;
  if nilai<=33 then
  writeln(‘Maaf, nilai tidak cukup, tidak boleh ikut turnamen);
  write('Nilai yang diperoleh sebesar:',nilai);
End.