Даны два действительных положительных числа x и y. Арифметические действия над…

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. Вроде