Программист решал задачу "Дано семизначное натуральное число. Найти сумму цифр этого числа" и поторопился, перепутав строки в программе.

Расставьте строки в правильном порядке.

• Program N;
• var x, S, i: integer;
• begin
• readln\(x\);
  S := 0;
• for i := 1 to 7 do begin
• S := S + x mod 10;
  x := x div 10;
• end;
• writeln\(S\);
• end.