" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
suma,i :integer;
begin
suma:=0;
for i:=0 to 13 do
begin
readln(i);
suma:=suma+i;
end;
writeln('suma wynosi', suma);
end.