Verified answer

===== PascalABC.NET =====

begin

 var (s, i) := (0, 1);

 while i <= 100 do

 begin  

   s += Sqr(i);

   i += 1

 end;

 Println(s);

 (s, i) := (0, 1);

 repeat

   s += Sqr(i);

   i += 1

 until i > 100;

 Println(s)

end.