Есть и надо сказать, в чем ее суть: 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; end; end.

Не понял, в чём смысл этой программки, работает она так: если с клавиатуры вводится нечетное число, то на экран выводится "инвалиды". Если же число четное, то выводится два столбца чисел: первый от 0 до s/4, а второй столбец от s/2 до 1 или до 0, но так, что сумма учетверенного числа из первого столбца и удвоенного числа из второго столбца составляет S.