Найти сумму кубов 3 чисел PascalABC

uses crt;vara,i:integer;sum:double;begini:= 0;sum:=0;while (i < 3) do beginreadln(a);sum:=sum+Power(a,3);i:= i + 1;end;writeln('Сумма = ', sum);end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadReal3('Введите через пробел три числа:');  Writeln('Сумма их кубов равна ',a**3+b**3+c**3)end.ПримерВведите через пробел три числа: 23.7 -12.6 39Сумма их кубов равна 70630.677