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

Варіант 1. vari:integer;s,:real;x:real;beginwriteln('Введіть 10 чисел: ');s:=0;fori:=1 to10 dobeginread(x);s:= s + x;end;writeln('Сума введених чисел = ',s);end.

Варіант 2.

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