[Pascal] Przestępność roku

[kroolik_91]

Napisać program, który wczyta ze standardowego wejścia liczbę naturalną r oznaczającą rok i wypisze TAK jeśli rok jest przestępny, NIE- jeśli nie jest. Powiemy, że rok jest przestępny, gdy jego wartość jest podzielna przez \(\displaystyle{ 4}\). Jeśli jednak jego wartość dzieli się przez \(\displaystyle{ 100}\), a nie dzieli się przez \(\displaystyle{ 400}\), to rok nie jest przestępny.

Z góry dzięki za pomocne odpowiedzi!

[PabloRal]

Tutaj masz funkcję sprawdzającą czy rok jest przestępny i dopisz to co trzeba

Kod: Zaznacz cały

function przestepny(x:word):boolean;
begin
  if x mod 4 = 0 then przestepny := true else
  przestepny := false;
  if x mod 100 = 0 then
    if x mod 400 = 0 then przestepny  := true else
    przestepny  := false  
end;