program Project2;

{$APPTYPE CONSOLE}
{$o-}

uses
  SysUtils;


var
x1,x2,x3,x4,x5:byte;

procedure tri(z1,z2,z3,z4,z5:byte);
.........
begin <<<âîò ïîñëå ýòîãî ñëîâà âàëèòñÿ
.....
end;

begin
rewrite(output,'output.txt');
for x1 := 1 to 10 do
  for x2 := 1 to 10 do
  for x3 := 1 to 10 do
  for x4 := 1 to 10 do
  for x5 := 1 to 10 do
  tri(x1,x2,x3,x4,x5);

  close(input);
end.