Написать программу для Pascal. Вычислите сумму положительных и кол-во отрицательных чисел на отрезке, концы которого вводятся с клавиатуры.

var a,b,k1,k2,s:integer;  begin  s:=0;  k1:=0;  writeln('Введите начало и конец отрезка');  read(a,b);  k2:=b-a+1;  repeat  if b<0 then break;  s:=s+b;  b:=b-1;  inc(k1);  until (b=-1) or (b=a-1);  writeln('Сумма всех целых положительных чисел на отрезке = ',s);  writeln('Количество отрицательных целых чисел = ', k2-k1);  end.