program optves;
var
w:real; { вес }
h:real; { рост }
opt:real; { оптимальный вес }
d:real; { отклонение от оптимального веса }
begin
writeln('Введите в одной строке через пробел');
writeln ('вес (в кг) и рост (в см), затем нажмите <Enter>');
write('->');
readln(w,h);
opt:=h-100;
if w=opt
then
writeln('Ваш вес оптимален!')
else
if w<opt
then begin
d:=opt-w;
writeln('Вам надо поправиться на ',d:5:2,' кг.');
end
else begin
d:=w-opt;
writeln('Вам надо похудеть на',d:5:2,' кг');
end;
end.