Ребяяяяттт, помогите срочно ,пожалуйста!!!!!
Вопрос жизни и смерти, если не сделаю ,информатичка прикончит прямо в классе!!! Спасите ,плиз!!!
Все это в Паскале

1)Program z1;var N,a,b,c,d,e,f:integer;beginWrite('Введите четырёхзначное число: '); read(N);a:=N div 1000;b:=(N mod 1000) div 100;c:=(N mod 100) div 10;d:=N mod 10;e:=a+b+c+d;f:=e mod 10;if (f=5) or (f=0) then Writeln('Сумма цифр числа кратна 5')else Writeln('Сумма цифр числа не кратна 5');end.2)Program z2;var a,b,c,d:integer;beginWrite('Введите числа: '); Write('a = '); read(a);Write('b = '); read(b);Write('c = '); read(c);if (a>0) then a:=1;if (b>0) then b:=1; if (c>0) then c:=1;d:=a+b+c;writeln('Положительных чисел: ',d);end. 3)Program z3;var x,y:integer;beginWriteln('Введите координаты:');Write('x = '); read(x);Write('y = '); read(y);if (-5<x) and (x<5) and (-5<y) and (y<5) then Writeln('Попал')else Writeln('Не попал');end.4)Program z4;var m,n:integer;beginWrite('Введите номер месяца: '); read (m);n:=m+1;case n of1: write ('Февраль');2: write ('Март');3: write ('Апрель');4: write ('Май');5: write ('Июнь');6: write ('Июль');7: write ('Август');8: write ('Сентябрь');9: write ('Октябрь');10: write ('Ноябрь');11: write ('Декабрь');12: write ('Январь');end;end.