от 0 до 4, значит повторяется 5 раз 0,1,2,3,4
ответ 243
<span>Var x, y, z:real;
begin
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit2.Text);
if ComboBox1.Text='Додавання' Then z:=x+y;
if ComboBox1.Text='Віднімання' Then z:=x-y;
if (ComboBox1.Text='Ділення')and(y<>0) Then z:=x/y;
if </span>(ComboBox1.Text='Ділення')and(<span>y=0)
Then ShowMessage ='Вираз значень не має'
else Label2.Caption:=FloatToStr(z);
end;
</span>
Информацию, достаточную для решения поставленной задачи, называют полной.