Определить k-количество трехзначных натуральных чисел,сумма цифр равна (1

Первый вариант программы на Pascalvari,j,k:integer;beginfor i:=1 to 9 do beginfor j:=0 to 9 dofor l:=0 to 9 doif ((i+j+l))=1) and ((i+j+l)(=27) then begink:=k+1;end;end;if k=0 then beginwriteln(‘net takih chisel’0;end elsewriteln(‘kolichestvo=’,k);readln;end.Второйprogram p;var p,i,k,l,m,z,f :integer;a[i]:array [1..899] of integer;beginp:=100;for i:=1 to 889 doa[i]:=p;p:=p+1;end;for i:=1 to 899 dobegink:=a[i] mod 10;a[i]:= a[i] div 10;l:= a[i] mod 10;a[i]:=a[i] div 10;m:= a[i] mod 10;z:= k+l+m;if (z>1) and (z<27) then f:=f+1;end;writeln(f);end.Третийprogram Kconst min=1; max=27;var s, d, e, c, n: Integer;beginrepeatwrite(\'Введите n (\', min, \'<=n<=\', max, \') \');Readln(n);until n in [min..max];c:=0; for s:=1 to 9 dofor d:=0 to 9 dofor e:=0 to 9 doif s+d+e=nthen Inc(c);writeln(\'Количество чисел с суммой цифр = \', n, \' = \', c);end.