Написать программку, которая запрашивает реальный рост и вес юзера, вычисляет его

вообщем на данный момент каникулы

опять таки смотря что считать занимательными задачками

Это чтото алимпиадное наверняка

https://znanija.com/task/17755379 такое?

плохо нет поиска по нерешенным

Var
  p,h,imt:real;
begin
  Write('Введите вес в кг и рост в см: ');
  Read(p,h);
  imt:=p/Sqr(h/100);
  if imtlt;=16 then Writeln('Недостаток массы тела. Нужно поправиться.')
  else if imtlt;25 then Writeln('Обычный вес! Так держать!')
  else if imtlt;=30 then Writeln('Избыточная масса тела. Необходимо худеть.')
  else if imtlt;=35 then Writeln('Ожирение 1-й степени. Нужно похудеть.')
  else if imtlt;=45 then Writeln('Ожирение 2-й степени. Срочно худейте!')
  else Writeln('Ожирение 3-й ступени. Безотлагательно начинайте худеть!!!')
end.