Menyambut Tahun Baru

Untuk menutup tahun ini dan menyambut tahun selanjutnya, silakan copy semua angka2 di bawah ini (read more) ke notepad anda, kemudian replace (CTRL+H) semua angka 6(enam) dengan karakter _ (underscore). Semoga tahun ini jadi pengalaman berharga untuk tahun depan yang lebih baik.
Aamiin..
Tiar Aristian

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.