011 5

end;

if noweDzialanie-tak' then begin

liczba:=drugaLiczba;

end

else

begin

if działanie-plus' then I i czba :=1 i czba+drugaL i czba else if działanie-minus' then I i czba :=1 iczba-drugaL iczba else if dzialanie-razy' then Hczba:=liczba*drugaLiczba else if działań ie='podzielic' then liczba:=liczba/drugaLiczba; end;

e Wyświetl.Text:-'; dzialanie:-minus'; noweDzialanie:-nie'; end;

procedurę TForml .bMnozenieClick(Sender: TObject); var

drugaLiczba:double;

begin

try

drugaLiczba:=strtofloat(e Wyświetl.Text);

except on EConvertError do

begin

ShowMessage('Nieprawidlowa liczba'); exit; end;

end;

if noweDzialanie—tak' then begin

liczba:=drugaLiczba;

end

else

begin

if działanie-plus' then liczbai^liczba+drugaLiczba else if działanie-minus' then liczba:-liczba-drugaLiczba else if dzialanie-razy' then 1 i czba :=1 iczba* drugaL iczba else if działanie-podzielić' then liczba:=liczba/drugaLiczba; end;

eWyswietl.Text:="; działanie:—razy'; noweDzialanie:-nie';