Виконайте фрагмент программи і вкажіть значення змінної SBegin S:=1; i:=1; While i<4 doBegini:=i + 1S:=S * i;End;Edit1. Text:=FloatToStr(S);End;