não sei oq esta acontecendo pouco then? muito then? falta (;)?
obrigado pela ajuda
program Untitled;
var
peso:real;
altura:real;
idade:integer;
begin
writeln('digite seu peso');
read(peso);
writeln('digite sua altura');
read(altura);
writeln('digite sua idade');
read(idade);
if(peso / altura * altura <= 16)then
writeln('voce esta com magreza extrema')
else if(peso / altura * altura) >=16) and (peso / altura * altura) <=17)
writeln('voce esta com magreza moderada')
else if(peso / altura* altura) in (17..18.5)
writeln('voce esta com magreza leve')
else if(peso / altura * altura >= 18,5) and (peso / altura * altura <= 25)
writeln('voce esta saudavel')
else if(peso / altura * altura >=25) and (peso / altura * altura <=30)
writeln('voce esta com sobre peso')
else if(peso / altura * altura >=30) and (peso / altura * altura <=35)
writeln('voce esta com grau de obesidade I procure ajuda')
else if(peso / altura * altura >=35) and ((peso / altura * altura <=40)
writeln('voce esta com grau de obesidade II procure ajuda')
else if(peso / altura * altura >=40) and (peso / altura * altura <=45)
wirteln('voce esta com grau de obsidade III procure ajuda')
end