{* Задача 157 *}

Unit ZADACH157;
Interface
Implementation
Begin
 writeln('Найти остаток от деления числа, записываемого с помощью k семёрок, на число а (k и a -заданые натуральные числа ');
End.

Program pas13616;

Uses zadach157.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  i  : longint;
  k  : longint;
  a  : longint;
  ss : longint;
  er : integer;
  s  : String;
Begin
  clrscr; {* Очищаем экран *}
  write('k=');
  readln(k);
  write('a=');
  readln(a);
  For i := 1 To k Do {* Увеличиваем i от 1 до k с шагом 1 *}
    s := s + '7';
  val(s, ss, er);
  ss := ss Mod a;
  write('Ответ: ', ss);
  readln; {* Приостановка программы. Ожидание Enter *}
End.