{Файл: progam_stud.pas
Задача:
  
Автор:
   
Дата:
  }
 
  
var 

 k  : integer; //k-целое число которое будет вводится

begin
  {Ввод}
  writeln('ввыедите число');
  readln(k);//ввод числа
    
  //решение
  writeln ('');

                                                  //mod -выводит остаток от деления
      if (k mod 7 =0)and(k mod 10 =1) then //a[i] mod 7 =0 -узнаем число кратное семи
                                                  //a[i] mod 10 =1-узнаем число окачивающиеся на 1
                                                  //
          begin
            writeln(k,'-нужное число'); //вывод
          end
      else
          begin
             writeln(k,'-неправильно число');  //вывод
          end;
  
  writeln ('');


end.