определить какое значение будет принимать переменная y после выполнения фрагментов
программы
Var x,y:integer ;
Begin
y:=0 ; x:=10
While x>0 do begin
x:=x-2;
y:=y+x
end;
Writeln(`y=` , y )
end.
подробно плииз до завтра