Есть задача и надо сказать, в чем ее суть:

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.