<span>var
i, p, s: integer;
begin</span>
<span> s:=0;
</span> p:=1;
for i:=15 to 20 do
<span>
begin
</span><span>s:=s+i;
p:=p*i;
</span> end;
writeln('s=',s);
writeln('p=',p);
end.
Информацию<span>, </span>представленную в форме<span>, </span>пригодной для хранения<span>, </span>передачи и обработки компьютером<span>, называют данными. </span>
Begin
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.
Корневой каталог - "высший" каталог данного диска, т.е. D:\
D:\123.txt