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

Var a,x:real;
begin
readln(a);
readln(x);
while a>=x do
 begin
      a:=a-x;
      readln(x);
 end;
write(a=,a,  x=,x)
end.