Решить задачу в Pascal. Процедуры и функции.

// Нет таких чисел
Function Fact(a:integer):integer;
var b,c: integer;
begin
c:= a>1? a : 1;
for b := 1 to a do c:= c*b;
Fact := c;
end;

var z,x,c:integer;
begin
for z := 1 to 7 do
for x := 0 to 7 do
for c := 0 to 7 do
Println(z*100 + x*10 + c,' - ',Fact(z)+Fact(x)+fact(c));
end.