var a,b,s,n,u:integer; begin readln (s); что это? n:= s mod 4; u:= s mod 2; if (S mod 2>0) then writeln ('Инвалиды') else for a:=0 to n do begin for b:=0 to u do begin if ((a*4) + (b*2) = s) then writeln (a,b); end; - вопрос №1835822