test2.pas

袖珍型的pascal编译器

program test2;

const MAXINT = 10;

var x,y,rez:integer;
	c:char;
	xr,yr, xrez:real;
	
procedure Aduna(a,b:integer;var result:integer);
begin
result := a + b;
end;

function Add(a,b:integer):integer;
begin
Add := a+b;
end;

procedure Tipareste(a:integer);
var i:integer;
begin
for i:=1 to a do
	print(i);
end;

begin 
print("X=");
read(x);
print("Y=");
read(y);
Aduna(x,y,rez);
print("X+Y = ",rez);
read(c);
print("\n\rX+Y = ",Add(x,y));
Tipareste(MAXINT);
read(c);
end.