{* Задача 29 *}

Unit ZADACH29;
Interface
Implementation
Begin
 writeln('Определение делителем каких чисел a, b, c является число k');
End.

Program pas14486;

Uses zadach29.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  b : integer;
  c : integer;
  k : integer;
  s : integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите 3 целых числа:');
  readln(a, b, c);
  write('Введите целое число для проверки делимости k=');
  readln(k);
  s := 0;
  If a Mod k = 0 Then
  Begin
    writeln('Число ', k, ' делитель числа ', a);
    s := s + 1;
  End;
  If b Mod k = 0 Then
  Begin
    writeln('Число ', k, ' делитель числа ', b);
    s := s + 1;
  End;
  If c Mod k = 0 Then
  Begin
    write('Число ', k, ' делитель числа ', c);
    s := s + 1;
  End;
  If s = 0 Then
    write('Число ', k, ' не является делителем чисел ', a, ' ', b, ' ', c);
  readln
End.