38 lines
737 B
ObjectPascal
38 lines
737 B
ObjectPascal
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;
|
|
|
|
procedure Wypisz_czy_przestepny(rok : Integer; przestepny: Boolean );
|
|
begin
|
|
if przestepny then
|
|
writeln('Rok ', rok, ' jest przestepny')
|
|
else
|
|
writeln('Rok ', rok, ' nie jest przestepny');
|
|
end;
|
|
|
|
procedure Glowna_procedura;
|
|
var
|
|
rok : Integer;
|
|
przestepny : Boolean;
|
|
begin
|
|
rok:= Czytaj_rok();
|
|
przestepny:= Czy_przestepny(rok);
|
|
Wypisz_czy_przestepny(rok,przestepny);
|
|
end;
|
|
|
|
begin
|
|
Glowna_procedura()
|
|
end.
|