{ NASOBEK7.PAS                            Copyright (c) Pavel Patak }
{ Rozhodne, zda je cislo nasobkem sedmi.                            }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program NasobekSedmi;
Var A : Integer;
Begin
 Writeln('Zadej cele cislo : ');
 Readln(A);
 if A mod 7 = 0 then Writeln('Toto cislo je nasobkem sedmi.')
  else Writeln('Sedmicka toto cislo nedeli.');
 Readln;
End.