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