Ввести число А. Затем вводить последовательно числа (используя одну переменную X) и уменьшать A на число X. Вводить числа, пока A не станет меньше X. На экран выдать A и X. решите пожалуйста срочно

var a,x:integer;beginwrite('A = '); readln(a);repeat write('X = '); readln(x); a:=a-x;until a<x;writeln('A = ',a,'  X = ',x);end.Пример:A = 35X = 16X = 8X = 23A = -12  X = 23