Даны два действительных положительных числа 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.

вроде