Var S, N: integer;
begin
read(n);
S := 0;
while n <> 0 do
begin
S := S + n;
read (n);
end;
write(S);
<span>end.
Считает сумму n.</span>
Var
i, sum, j: integer;
begin
j:=1;
sum:=0;
WHILE j<15 DO
begin
sum:=sum+(j*j*j);
j:=j+2;
end;
write(sum);
end.
Это значек обозначающий программу