Составить программу, подсчитывающую количество "счастливых" чисел, если сумма трех цифр равна n.

uses crt;
var
i,j,k,s,p,o:byte;
 
 
BEGIN
 
for i:=0 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   for s:=0 to 9 do
    for p:=0 to 9 do
     for o :=0 to 9 do
            if (i+j+k) = (s+p+o) then
            begin
                        write(i,j,k,'  ', s,p,o);
                          writeln;  readkey;
 
       end;
 
   END.

uses crt;
var
n,i,j,k,s,p,o:byte;
counter: integer;
 
BEGIN
writeln('введите сумму');
 read(n);
 
counter:=0;
for i:=0 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   for s:=0 to 9 do
    for p:=0 to 9 do
     for o :=0 to 9 do
            if ((i+j+k) = (s+p+o)) and ((i+j+k)=n) then
            begin
                       inc(counter);
                        write(i,j,k,' ', s,p,o);
                          writeln; end;
 
writeln;
writeln('таких чисел: ', counter);
writeln;
readln;
END.

var
  sum, i, j, k: integer;
  count: integer;
 
begin
  write('sum? '); readln(sum);
 
  if not ((0<=sum) and (sum<=27)) then begin
    writeln('Sum must be in [0..27] range!');
    exit;
    end;
 
  count:=0;
 
  k:=sum;
  for i:=0 to 9 do begin
    if (0<=k) and (k<=18) then begin
      for j:=0 to 9 do begin
        if (0<=k) and (k<=9) then begin
          inc(count);
          end;
        dec(k);
        end;
      inc(k, 10);
      end;
    dec(k);
    end;
  inc(k, 10);
 
  count:=sqr(count);
 
  writeln(count);
 
  readln;
end.