(*
Fichier : exo1.pas
Description : Conversion de l'exercice 1 du TD révision en Pascal
Auteur : INGOUFF Christian
Date : 23/11/11 (1.0)
Version : 1.0
*)
program CalculImc;
var
weight, height, imc: real;
begin
	weight := -1;
	height := -1;
	while weight < 0 do
		begin	
		writeln('Entrez votre masse (en kg)');
		readln(weight);
		if weight<0 then writeln('Veuillez entrer une masse positive !');
		end;
	while height < 0 do
		begin
		writeln('Entrez votre taille (en m)');
		readln(height);
		if height<0 then writeln('Veuillez entrer une taille positive !');
		end;
	imc := weight/(height*height);
	if imc < 16.5 then writeln('Attention, vous êtes en dénutrition !')
	else if imc < 18.5 then writeln('Vous êtes maigre !')
	else if imc < 25 then writeln('Vous avez une corpulence normale.')
	else if imc < 30 then writeln('Vous êtes en surpoids.')
	else writeln('Attention, vous êtes obèse !');
	if imc < 18.5 then write(' Il vous faut gagner ',18.5-imc,' kg pour avoir une corpulence normale')
	else if imc > 25 then write(' Il vous faut perdre ',imc-25,' kg pour avoir une corpulence normale');
	readln;
end.
