%begin

%integer %c
  i,j
%real x, y

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