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

procedure TForm1. Button1Click (Sender: TObject);

begin

x:=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.

вроде