gal kas galetu pasakyti mano klaidas? Parašykite programą, kuri patinkrintų ar teisinga formulė: 13 + 33 + …+ (2n – 1)3 = n2(2n2 – 1), Kai n = 1, 2, …, 100. program ciklas2; var pr, gr, h, n, teisinga, neteisinga, sum:integer; begin WriteLn('iveskite n'); Readln (n); pr :=1; gr:=100; h :=1; sum :=0; while pr <= gr do begin sum := sum + (n*n*n); pr := pr + h end; if sum =(n*n)*(2*(n*n)-1) then = teisinga else = neteisinga; writeln ('teisinga'); writeln ('neteisinga'); end.