begin
  var Dat: array[1..10] of integer = (
  70, 80, 90, 100, 80, 40, 40, 70, 80, 90);
  var s := 0;
  var m := 0;
  Writeln('  s  m  k  Dat[k]');
  for var k := 1 to 10 do
  begin
    if Dat[k] < 70 then
    begin
      s += Dat[k];
      m += 1;
    end;
    Writeln(s:3, m:3, k:3, Dat[k]:5)
  end;
  Write('s = ', s, ', m = ', m)
end.