Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18).

{Обозначим: k - это просматриваемое число; p1 - это первая цифра числа k, р2 - это вторая цифра числа k; s - это сумма цифр данного числа k. Число k будем выписывать только в том случае, когда сумма p1 и р2 будет равна s.}

program prim2;
  uses crt;
  var k,n,p1,p2,s:integer;
begin
  clrscr;
{Задаем целое число.}
  writeln(' целое число n=');
  readln(n);
{Организовываем цикл с параметром от 10 до 99.}
  for k:=10 to 99 do
    begin
{Выделяем первую цифру.}
      p1:=k div 10;
{Выделяем вторую цифру.}
      р2:=к mod 10;
{Находим сумму цифр.}
      s:=p1+p2;
{Если сумма цифр равна заданному числу N, то выводим К.}
      if s=n then writeln('k= ',k);
    end;
end.