<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3.5,18.3,28.5,1.5,0.18); a.Println;
Writeln('S=',a.Sum)
end.
<u>Результат</u>
3.5 18.3 28.5 1.5 0.18
S=51.98
L=[float(i) for i in input().split()]
m=1
for i in l: m*=i
print("верно" if m<1000 else "неверно")
Var
a,s:integer;
begin
readln(a);
s:=(a div 100) + ((a div 10) mod 10) + (a mod 10);
writeln(s);
<span>end.</span>