Даны два действительных положительных числа x и y. Арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление). Составьте программу, которая по введенному номеру выполняет то или иное действие над числами

procedure TForm1.Button1Click(Sender: TObject);beginx:=strtoint(edit1.Text);y:=strtoint(edit2.Text);b:=strtoint(edit3.text);if b=1 then begin z:=x+y;edit4.Text:=floattostr(z);end;if b=2 then begin z:=x-y;edit4.Text:=floattostr(z);end;if b=3 then begin z:=x*y;edit4.Text:=floattostr(z);end;if b=4 then begin z:=x/y;edit4.Text:=floattostr(z);end;end;end.

вроде