PROGRAM tst1
{ Programa que fornece conselhos sobre o peso. }

var a, p: integer;

begin
  write('Entre seu peso (em kg): ');
  readln(p);
  writeln;
  write('Entre sua altura (em cm): ');
  readln(a);

  a:=a-100;
  if (a>=p+10) then
   writeln("Voce esta em forma: parabens!");
  else if (a>=p) AND (a<=p+10) then
   writeln("Cuidado para nao engordar, para nao ficar fora do peso");
  else
   writeln('Voce precisa emagrecer, procure um medico para lhe orientar');
end