Ваня начал учиться программированию и создал программу, которая проверяет делится ли число К на 3 и положительно ли оно.

program z;

var

   i : integer;

begin  

   Writeln("Введите число"); Readln(i);  

   if i mod 3 = 0  

       then

           Writeln("Число делится на 3")

       else

           Writeln("Число не делится на 3");

   readln;

end.

Объяснение: