Задача 3. Обчислити суму введених чисел

Варіант 1. var i: integer;s,: real;x: real; begin writeln('Введіть 10 чисел: ');s:=0; for i:=1 to 10 dobegin read(x);s:= s + x; end;writeln('Сума введених чисел = ',s); end.

Варіант 2.

var s: real; begin writeln('Введіть 10 чисел: ');s:=0; for var i:=1 to 10 dobeginvar x: integer;read(x);s += x; end;writeln('Сума введенних чисел = ',s); end.