Увас есть три пользователя: виталий, андрей и павел, которые не дружат друг с другом. известно, что у виталия и андрея 77 общих друзей, у андрея и павла 81 общих друзей, а у павла и виталия 85 общих друзей. известно также, что всего у виталия 148 друзей, у павла 98 друзей, а у андрея 128 друзей. каково минимальное количество пользователей соцсети, которые дружат и с павлом, и с виталием, и с андреем?

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end.