Составить программу для подсчета идеального веса человека. Данные для ввода: A-рост, V-возраст, P-признак(1 - мужчина, 0 - женщина) Формулы для расчета: Мужчины: S=(3A-450+V)*0.25+45 Женщины: S=(3A-450+V)*0.225+40.5

Program n1; var a,v,p,s: real; begin write('введите рост: '); readln(a); write('введите возраст: '); readln(v); write('введите признак(1 - мужчина, 0 - женщина): '); readln(p); if p=1 then s:=(3*a-450+v)*0.25+45; if p=0 then s:=(3*a-450+v)*0.225+40.5; writeln('идеальный вес: ',s); end.