Составить программы решения заданий в Паскале: 1. Определить, является ли целое число N четным двузнычным числом. 2. Подсчитать количество отрицательных чисел среди чисел а,b, c.  

№1 Program z1; var N:integer; Begin write ('Введите число N: '); readln(N); if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное'); end.   №2 Program z2; var a, b, c, k:integer; Begin k:=0; writeln ('Введите числа a, b и c: '); readln(a,b,c); if a<0 then k:=k+1; if b<0 then k:=k+1; if c<0 then k:=k+1; write('Количество отрицательных чисел: ',k) end.