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

{Input file to test Project 3}
program test3(input,output);

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

function boo(x, y : real) : boolean;
var	a, i, j	: boolean;
begin
	a := x > y and N[3] < N[4] + N[5] * N[6] + N[7] ;
	i := D[9] = D[10] or D[11] <= D[12] and D[13] >= D[14] ;
	j := D[15] <> D[16] ;
	boo := a and i or j
end;

function Noarg : integer;
begin 
	Noarg := a + D[15] * D[16] + D[17]
end;

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

procedure ZeroArg;
var	Z	: array[0..100] of integer;
begin
	i := 0 ; 
	while 100 > i do 
	begin
		Z[i] := 99 + i;
		N[i+3] := Z[i-1];
		begin
			i := i + 1 
		end
	end ;
	FiveArg( i <> 50, D[20]+3.0, D[21]-4.0, N[30]*2, N[31]mod 4 )
end;

function factorial( k : integer ) : integer ;
begin
	if( k < 3) then factorial := k else factorial := k * factorial(k-1) 
end;

begin
	a := D[25]/D[26]*3.6 ;
	j := N[35]div N[36]*k mod Noarg ;
	k := 39 - N[N[50]] + N[51] - factorial(j) ;
	x := not i <> j;
	D[10] := 32.5 / (-a+5.0) * 99.0;
	D[11] := -4.0*+6.3 ;
	N[23] := (((3*j+2)*j+4)*j+5)*j+6 ;
	N[24] := 6+i*(5+i*(4+i*(2+3*i))) ;
	Z[50] := boo(a-5.0, D[40]-6.0);
	ZeroArg 
end.

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