Algoritmo Peso Ideal - Classificacao por Peso em Pascal

program quest4 var Peso Real begin WriteLninforme o peso readpeso if peso 50 then WriteLnleve else ifpeso 70 then WriteLnmedio else ifpeso 100 then WriteLnmeio pesado else ifpeso 100 then WriteLnpesado end