Neisizaiduoju, gerai meginsiu koreguot programa 2Uzduoti tai va padariau kazka. Galetumete patikrinti ir pataisyti. program kvkb; var suma, x, i, n : integer; Begin suma := 0; WriteLn('Įveskite, kiek iš viso bus skaičių: '); ReadLn(n); For i := 1 to n do begin WriteLn('Įveskite ', i,'-ąjį skaičių: '); ReadLn(x); suma := suma + x; end; WriteLn('Įvestųjų skaičių suma yra ', suma); ReadLn; end.