Вычислить сумму в цикле ( на Delphi )

[Tuns]

Представить блок-схему и фрагмент программы для вычисления суммы значений, вводимых с клавиатуры (в массиве вводимые значения не сохранять)

[ZX Spectrum-128]

Элементарные же задачи. Разве могут быть какие-то проблемы?

[Tuns]

Сообщение от ZX Spectrum-128

Элементарные же задачи. Разве могут быть какие-то проблемы?

может быть но я туплю

[ZX Spectrum-128]

Sum:=0;
For i:=1 to n do
 Begin
  Readln(x);
  If x<0 then
   Y:=2*x-4
  Else
   Y:=x*x+3;
 Sum:=sum+y;
 End;

Это первая, вторая по аналогии.

[Tuns]

Сообщение от ZX Spectrum-128

Sum:=0;
For i:=1 to n do
 Begin
  Readln(x);
  If x<0 then
   Y:=2*x-4
  Else
   Y:=x*x+3;
 Sum:=sum+y;
 End;

Это первая, вторая по аналогии.

Спасибо огромное!!!