с информатикой! На каких из перечисленных наборов аргументов функция равна 0

    1 способ                                             2 способ

х чаек - на первом острове                 х чаек - на первом острове

у чаек - на втором острове                   79-х чаек - на втором острове

х+у=79               х+у=79                         х-15-12=79-х+12

х-15-12=у+12     х-у=39                          2х=118

                        2х=118                           х=59

                        х=59                               79-59=20

                        у=20

ответ: на первом острове 59 чаек, на втором - 20 чаек.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.