program t1 is
constant
	c = 5;
var	
	ar : array (1..2, 2..3, 3..4) of boolean;
	b : boolean;
	r : record  a: integer endrec;
type
	t1 = char;
	t3 = t1;

procedure p1(var v:t1; value:t3) is 
	forward;
function f1(var fv:t1; value:string) return integer is 
	begin
	end;
Begin
	  r := p1

End.