Какое значение примет переменная Y после выполнения программы?

var y,x: integer;

begin y:=0; x:=32;

while x>0 do

begin

x:=x-2; y:=y+0,1*x;

end;

writeln ('y=',y);

end.

753BC    3   08.05.2020 10:44    7