Ответ:

program xxxx;

uses crt;

var

i,a,s1,s2:integer;

begin

read(a);

for i:= 1 to a do

if i mod 2 = 0 then s2:=s2+i else s1:=s1=i;

writeln(s1,s2);

end.

Объяснение: