1 и 2 плиз,очень надо

1) var a,b,c:integer;k:integer;beginreadln (a,b,c3 4);k:=0;if (a mod 4=0) and (a mod 10=0) then  k:=k+1;if (b mod 4=0) and (b mod 10=0) then  k:=k+1;if (c mod 4=0) and (c mod 10=0) then  k:=k+1;writeln (k);end.