[wolfen3]

Czy ten kod jest poprawny ??

var rok:integer;
result:boolean;
function TDataPrzestepny: Boolean;
begin
readln(Rok) ;
if Rok mod 4 = 0) and (Rok mod 100 <> 0))
or (Rok mod 400 = 0)
then Result := TRUE
else Result := FALSE;
end;
begin
tdataprzestepny;
writeln(result);
readln;

end.