Var r,v,w,n,kg:real; begin write ('Введите рост: '); readln (r); write ('Введите возраст: '); readln (v); write ('Введите вес: '); readln (w); WRITELN; if v<25 then n:=r-110 else n:=r-100; if n=w then writeln ('Ваш вес в норме'); kg:=w-n; if n<w then writeln ('Вам надо сбросить',kg,' килограмм'); kg:=n-w; if n>w then writeln ('вам надо поправится на ',kg,' килограмм'); end.