вычислить все значения и найти сумму вычисленных элементов для y=c-a, если а=2, шаг=1 и с принадлежит [-1,57;1,57]

var    c, y, a, h, s: real;begin    a := 2.0;    h := 1.0;    c := -1.57;        repeat        y := c - a;        writeln(c:7:2, ' ', y:7:2);        s := s + y;        c := c + h;    until c > 1.57;        writeln(s);end.