Составить программу для подсчета идеального веса человека. Данные для ввода: 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.