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

Var
   A:integer;
   Sc,Sn:real;
Begin
Sc:=0;
Sn:=0;
Repeat
Read(A);
if A mod 2 = 0 then Sc:=Sc+A
else Sn:=Sn+A;
Until Sc=Sn;
WriteLn('S = ',Sc)
End.