var1,var2,a[5],b[7];
var1 := var2+10; var1 := 9;
var1 := 1;

while var1<5 do
{ a[var1] := var1*var1 + 1;
  b[var1] := a[var1] + var2;
  var1 := var1+1;
}
end