Задание
i, s: integer;
begin
for i:=1 to 5 do
x
s:=0;
for i:=1 to 5 do begin
if x mod 2 = 0 then s:=s+a
end;
writeln \(s\);
end.
Результат выполнения программы:
var x: array
\[1\.\.5\]
of integer;i, s: integer;
begin
for i:=1 to 5 do
x
\[i\]
:=i;s:=0;
for i:=1 to 5 do begin
if x mod 2 = 0 then s:=s+a
\[i\]
;end;
writeln \(s\);
end.