-------------  CUT THIS LINE AND ALL ABOVE IT  ------------

{Input file to test Project 2 - Fall 2002}
program test2(input,output);

var	a		: real;
var	i, j, k	: integer;
var	x, y  	: boolean;
var	Z		: array[1..100] of boolean;
var	N		: array[10..300] of integer;
var	D		: array[6..100]of real;

function boo(x, y : real) : boolean;
var	a, i, j	: boolean;
begin 
	boo := true
end;

function Noarg : integer;
begin 
	Noarg := 9.6
end;

procedure FiveArg(a : boolean; i,j : real; x,y : integer);
begin
	 if true then i := 6 else x := 3.5
end;

procedure ZeroArg;
var	Z	: array[10..20] of integer;
begin 
	while false do 
	begin
		Z[17] := 99;
		N[56] := 55;
		begin
		end
	end ;
	FiveArg( false, 16.0, 17.0, 7, 4 )
end;

function factorial( k : integer ) : integer ;
begin
	if false then factorial := 2 else factorial := 24 
end;

begin
a := 3.5 ;
j := 23 ;
k := 4.3 ;
x := false;
D[10] := 3.5;
D[11] := 4;
N[23] := 6;
N[24] := 9.6;
Z[50] := false;
ZeroArg 
end.

-------------  CUT THIS LINE AND ALL BELOW IT  ------------

Kenneth E. Batcher - 8/8/2002