Составить программу на паскале. дано двухзначное число n. проверить, меньше ли сумма цифр числа n заданного числа к. вывести об этом сообщение и значения числа n и к.

Var  N,K : integer;beginK := 10;  read(N);  if (N div 10 + N mod 10) < K then  begin    writeln('Сумма цифр числа N меньше K');  end;  writeln('N = ', N);end.