program s55;

uses
  crt;

var
  s1, a, S, n, i, v, kil: integer;
  v1: real;
  f1: text;

begin
  clrscr;
  S := 0;
  s1 := 0;
  writeln('Введите количество чисел');
  readln(n);
  randomize;
  Assign(f1, 'C:\1.txt');
  rewrite(f1);
  for i := 1 to n do 
  begin
    a := random(40) + 10;
    writeln(f1, a:5, ';');
  end;
  close(f1);
  reset(f1);
  begin
    for i := 1 to n do 
    begin
      if (a / 5 = v) and (a / 7 = v1) then
      begin
        readln(f1, a);
        kil := s1 + 1;
        S := S + a; 
      end;
  end;
  end;
  writeln('Suma =', S);
  writeln('Kol-vo =', kil);
end.

 if (a / 5 = v) and (a / 7 = v1) then