var proc,raty,cen,temp:real; begin proc:=strtofloat(edit1.Text); cen:=strtofloat(edit2.Text); raty:=strtofloat(edit3.Text); proc:=proc/100; temp:=cen*proc; cen:=cen+temp; cen:=cen/raty; edit4.Text:=floattostr(cen);
Skleilem cos takiego, dobrze to jest?