Пожалуйста,помогите! Срочно! В ПАСКАЛЕ:1) найти количество положительных целых чисел от 45 до 215;
2) Найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8;
3) Найти сумму и количество отрицательных четных целых чисел, введенных с клавиатуры. Печать результата по вводу числа 0.

//Приунываю//Pascal ABC.NET v3.1 сборка 1172//1begin writeln(215-45+1);end.//2Var i,s:integer;begin for i:=-50 to 200 do   if (i mod 5=0) and (i mod 8=0) and (i>0) then s:=s+i; writeln(s);end. //3Var i,s,a:integer;begina:=1; repeat  if (a<0) and (a mod 2=0) then   begin    inc(i);    s:=s+a;   end;  read(a); until a=0;writeln('Sum=',s,' and number=',i);end.