Помощь в создании алгоритма

[DjSmerty]

написать алгоритм по матрице 5 на 5:

1 2 3 4 5
6 7 3 9 10
11 12 3 14 15
16 17 3 19 20
21 22 3 24 25

[eoln]

var
  h, m, s, ms: word;
begin
  repeat
    decodetime(now, h, m, s, ms);
    write('*');
    sleep(50);
  until s = 1;
  writeln;
  repeat
    decodetime(now, h, m, s, ms);
    write(s:3);
    if s mod 5 = 0 then writeln;
    sleep(999);
  until s >= 25;
  readln
end.

[ura_111]

1.jpg