Составить программу для вывода на экран 3 значных чисел без остатка и корня кубического из них

var  x:double;begin  x:=102;  while x<=999 do begin Writeln(x,' ',exp(ln(x)/3)); x:=x+3 end;end.Результат выполнения программы:102 4.67232872835526105 4.71769398031653108 4.7622031559046111 4.80589553370533114 4.84880758583988117 4.89097324650875120 4.93242414866094123 4.97318983326859126 5.01329793496458129 5.05277434720856132 5.09164336965949135 5.12992784003009138 5.16764925236362141 5.2048278633942144 5.24148278841779147 5.27763208790408150 5.31329284591305. . .960 9.86484829732188963 9.87511349546425966 9.8853573964768969 9.89558011047944972 9.90578174668388975 9.91596241340387978 9.92612221806536981 9.93626126721644984 9.94637966653718987 9.95647752084936990 9.96655493412597993 9.97661200950066996 9.98664884927706999 9.99666555493786