Обозначим: 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.