Расставить недостающие фрагменты программы так, чтобы в результате получилось решение задачи: Найти сумму чисел от 10 до 100.
Var S, x: integer;
Begin
;
x=;
while do
begin
S:=;
x:=
end;
write();
end.

x x S:=0 x>100 10 x+1 S S+x

я попробывала у меня получилось имя даша

7 бит, следовательно 2^7=128

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.

ввод х  | 2

х=х*х      | x=4

у=1-х      |y=-3

х=х*х      |x=16

х=5*х      |x=80

у=у+х    |y=77

у=у*у   

вывод у