Scrieți un program care să permită introducerea de numere întregi prin tastatură și pentru fiecare număr introdus comunică prin monitor dacă numărul este divizibil cu 7. Programul se termină când este introdus numărul 0.​

Ответ:

program DivisibleBySeven;

var

 numar: integer;

begin

 repeat

   write('Introduceti un numar intreg (0 pentru a iesi): ');

   readln(numar);

   if numar mod 7 = 0 then

     writeln(numar, ' este divizibil cu 7.')

   else if numar <> 0 then

     writeln(numar, ' nu este divizibil cu 7.');

 until numar = 0;

end.