Листинг программы

program z42;

{ Найти остаток от деления числа, записываемого с помощью

  k семёрок, на число а (k и a -заданые натуральные числа) }

 uses crt;

 var i,k,a,ss:longint;er:integer;s:string;

 begin

  clrscr;

   write('k=');readln(k);

   write('a=');readln(a);

   for i:=1 to k do s:=s+'7';

   val(s,ss,er);

   ss:=ss mod a;

   write('Ответ: ',ss);

  readln;

 end.