Rok przestępny - Pascal

Algorytmy i struktury danych/Pascal/AiSD5_C2 Ćwiczenie 2/zad2_rok_przestepny.pas

@@ -0,0 +1,37 @@
+program rok_przestepny;
+
+function Czytaj_rok: Integer;
+var
+   rok: Integer; 
+begin
+   write('Podaj rok: ');
+   readln(rok);
+   Czytaj_rok:=rok;
+end;
+
+function Czy_przestepny(rok :Integer ): Boolean;
+begin
+   Czy_przestepny:= ((rok mod 4 = 0) AND (NOT (rok mod 100 = 0)) ) OR (rok mod 400 = 0); 
+end;