Procedure testlampe30;

VAR
myPosX,myPosY : REAL;
myRadius, myDiameter :INTEGER;
i:INTEGER;
{SUBROUTINES} 
Procedure CircelByPointAndRadius(rad, pointX, pointY : REAL; VAR diameter:INTEGER); 

BEGIN 
diameter:=2*rad; 
oval(pointX-rad, pointY-rad, pointX+rad, pointY+rad);
END; 
{End of declaration subroutine}

BEGIN;
FOR i:= 0 TO 74 DO BEGIN

myPosX:=23.5+i;
myPosY:=myPosX;
myRadius:=150-i*2;
CircelByPointAndRadius(myRadius, myPosX, myPosY, myDiameter);
END;
END;

Run(testlampe30);