Ответы и объяснения

2014-04-04T21:26:35+00:00
var   x: integer;
begin  
write('Введите число х: ');  
readln(x);
if (x mod 7=0)    then write('число кратно 7')       else write('Число не кратно 7');
readln;
end.