Подсчитать сумму двузначных чисел, сумма цифр которых не
превышает 10.

Program Pr10;
Var n, a, b, k: integer;
begin
k:=0; for n:=10 to 99 do begin
a:= n div 10; b:=n mod 10

начало в pascal

спасибо

Program Pr10;var  i, j, s: integer;begin s := 0;for i := 1 to 9 do   for j := 0 to 9 do     if (i + j <= 10) then        inc(s, i  * 10 + j);writeln(s);end.