Membuat Program Tahun Kabisat

program kabisat;
uses wincrt;
var
z:integer;
begin
write(' Masukkan sebuah angka tahun = ');readln(z);
if (z mod 4=0) or(z mod 100=0) then
writeln(' Tahun yang anda masukkan adalah Tahun Kabisat')
else
writeln(' Bukan Tahun Kabisat');
readln;
end.