Program zadacha; var x,y:integer; begin for x:=0 to 8456 do begin for y:=0 to 8456 do begin if((x * 22 + y * 14) = 8456) then writeln('x=',x,' y=', y); end; end; end.