test1.pas

袖珍型的pascal编译器

Program caca;
var x,y:real;
	r:real;
	j:array[1..10] of integer;
	k:record
		a:integer;
		b:char;
		c:real
		end;
{Procedure test}

function test1(var x:integer; y:real):integer;
var i :integer;

begin
x:=i;
end;

procedure test2;
var i: integer;
begin
for i:= 1 to 10 do
	j[i]:= 5;
end;


begin
	print ("X=");
	read(x);
	print ("Y=");
	read(y);
	print("\r\nX+Y=",(x+y)/2);
	read(k.b);
end.