Localize file www.TrSek.com/zadania/nasobek7.pas{ 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.