Установите последовательность

• for k := 1 to 10 do
• if Dat
  \[k\]
  > 25 then
• begin
• m := m + 1;
• end;
• writeln\(m\);