Вводить числа с клавиатуры до тех пор ,пока сумма четных из них не совпадёт с суммой нечетных

Var   A:integer;   Sc,Sn:real;BeginSc:=0;Sn:=0;RepeatRead(A);if A mod 2 = 0 then Sc:=Sc+Aelse Sn:=Sn+A;Until Sc=Sn;WriteLn('S = ',Sc)End.