O programa é o seguinte:

Program CalcularIMC;
Var
Peso,altura,media,menor,maior,somador,IMC:Real;
Contador:integer;
Begin
somador:=0;
IMC:=0;
menor:=40;
maior:=0;
For contador:=1 to 3 do
Begin

Writeln (\\\\\\\’Digite o peso:\\\\\\\’);
Read (peso);
Writeln (\\\\\\\’Digite a altura:\\\\\\\’);
read (altura);
IMC:=peso/(altura*altura);
writeln (\\\\\\\’O IMC é:\\\\\\\’ ,IMC);
begin
If IMC maior then
maior:=IMC;
end;
somador:=(IMC+somador);
If IMC =18.5) and (IMC=25.0) and (IMC=30.0) and (IMC=35.0) and (IMC