i:=StrToInt(Edit1.Text); per:=4; S1.Text:=FloatToStr(i/100*per); S2.Text:=FloatToStr(i/100*(100-per));
Сайт
Форум
FAQ
Соглашения
Прочее