Сколько трехзначных чисел равно x
pascal

uses crt;var i,j,k:0..9;    kol:integer;beginkol:=0;For i:=1 to 9 do For j:=0 to 9 do  For k:=0 to 9 do  if (i+j+k)=10 then inc(kol);writeln('Result: ',kol);end.