Program RokPrzestepny;
Var
 rok : Integer;
Begin
 Write( 'Podaj rok: ' );
 ReadLn( rok );
 If (rok Mod 400 = 0) Or ((rok Mod 4 = 0) And Not(rok Mod 100 = 0)) Then
 WriteLn( 'Przestepny' )
 Else
 WriteLn( 'Zwykly' );
End.