Посчитать сумму чисел, введённых с клавиатуры. Ввод чисел до тех пор, пока не будет значения 0. ( С предусловием и постусловием ). На языке Паскаль.

Var   A:integer;   S:real;Begin{Постусловие}S:=0;RepeatRead(A);S:=S+A;Until A = 0;WriteLn('S = ',S);{Предусловие}S:=0;Read(A);While A<>0 do   Begin   S:=S+A;   Read(A);   End;WriteLn('S = ',S);End.