Program symma; var k, i, s: integer; begin
s:=0; i:=1; k:=0; while k<=5 do begin if i mod 2=0 then begin s:=s+a; k:=k+1; end; i:=i+1; end; writeln('s=',s);
end.
Program symma;
var
k, i, s: integer;
begin
s:=0;
i:=1;
k:=0;
while k<=5 do
begin
if i mod 2=0 then begin
s:=s+a;
k:=k+1;
end;
i:=i+1;
end;
writeln('s=',s);
end.