Какое наименьшее целое значение k необходимо подать на вход программы,
чтобы в результате её выполнения напечаталось число 12?
Var
k, s : integer;
Begin
read(k);
s := 10;
while s < k do begin
s := s + 1;
k := k – s
End;
write(s)
end.