Помогите срочно пожалуйста
сейчас
Var k, n: integer; begin readln(k, n); writeln(n div k + 1, ' ', n mod k); end.