%begin

%integer %c
  i,j,x,y

printstring("start".tostring(7)); newline
x = 0;
y = 9;
%for i = 1, 1, 1000 %cycle
    x = 0;
    %for j = 1, 1,  1000  %cycle
       x = x+int((y*y-y)/ y);
%repeat
%repeat
printstring("finish".tostring(7)); newline
%endofprogram