ВСЕ ** РИСУНКЕ пааассскаль

Question

ВСЕ НА РИСУНКЕ пааассскаль

---

Answer 1

Var
      n, a, i: integer;
      ar: array[0..6]of char =('7', '1', '2', '3', '4', '5', '6');
begin
    read(n);
    a := n mod 7;
    write(ar[a]);
end.