mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:19:33 +02:00
17 lines
479 B
ObjectPascal
17 lines
479 B
ObjectPascal
function f(l1,l2,l3,l4,l5,l6,l7,l8,l9:longint):longint;
|
|
begin
|
|
f:=l1+l2+l3+l4+l5+l6+l7+l8+l9;
|
|
end;
|
|
|
|
var
|
|
l : longint;
|
|
begin
|
|
l:=f(f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9));
|
|
writeln('Got ',l,' expected ',9*(1+2+3+4+5+6+7+8+9));
|
|
if l<>9*(1+2+3+4+5+6+7+8+9) then
|
|
begin
|
|
writeln('Error!');
|
|
halt(1);
|
|
end;
|
|
end.
|