Matematické Fórum

Ahoj, snažím se sestavit program pro výpočet počtu trojciferných čísel s ciferným součtem 16; můžete mi zkontrolovat, jestli je správně, nejsem si totiž jistý výsledkem:
program CifSoucet;
uses crt;
var i,x,y,z,s integer;
begin
clrscr;
s:=0;
for i:=100 to 999 do
begin
  x:=i div 100;
  y:=(i mod 100) div 10;
  z:=i mod 10;
  if x+y+z=16 then s:=s+1;
end;
write(' pocet trojcifernych cisel s cifernym souctem 16 je ',s);
readln;
end.