Помогите пожалуйста срочно!!
Написать программу нахождения суммы всех чисел> заданного К при вводе до первого отрицательного.

//Pascal ABC.NET v3.0 сборка 1111var a,k,s:integer;beginreadln(k); //вводим ka:=0;s:=0; while a>=0 do //пока а >=0  begin;   if a>k then s:=s+a; //если a>k, тогда добавляем к s   readln(a); //каждый раз вводим в a  end;writeln(s); //выводим send.Пример ввода:45345667-2Пример вывода:123