Задача: Дано натуральное десятичное число N. Выполнить перевод в систему счисления с основанием p \(1\\lt p\\lt 10\).
Выберите те операторы, которые необходимы для решения данной задачи.

• var k, p, Np, N10: integer;
• var Np, N10: real;
• begin
• Read\(N10\);
• Read\(p\);
• Read\(k\);
• k := 1; Np := 0;
• Np := 0;
• while N10 > 0 do
  begin
  Np := Np + \(N10 mod p\) * k;
• k := k * 10;
• N10 := N10 div p;
  end;
• k := N10 mod p;
  end;
• Write\('N', p, ' = ', Np\)
• Write\(k\)
• end.