Algoritmo que calcule o Peso Ideal

Tendo como dados de entrada a altura e o sexo de uma pessoa, construa um algoritmo que calcule o peso ideal

Homens: (72,7 * altura ) – 58;
Mulheres: (62,1 * altura) – 44,7;

Pseudocódigo:

programa exercicio4
var
  altura, sexo, peso : real;
  sexo : caractere;
inicio
   leia altura;
   leia sexo;
   se (sexo = "F") ou (sexo = "f") entao
     peso ← (62,1 * altura) - 44,7;
     escreva peso
   senao
       peso ← (72,7 * altura) - 58;
       escreva peso;
   fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 25/03/2010
Program exercicio4;
 uses crt;
 var
 altura, peso : real;
 sexo : string; 
 Begin
 writeln('Insira a Altura. Ex. 1.80');
 readln(altura);
 writeln('Insira o Sexo. Ex: F ou M');
 readln(sexo);
 	if (sexo = 'F') or (sexo = 'f') then
 	 begin
 	  peso := (62.1 * altura) - 44.7;
 	  writeln('O Peso Ideal Feminino = ', peso);
 	 end
 	else
 	  begin
 	    peso := (72.7 * altura) - 58;
 	    writeln('O Peso Ideal Masculino = ', peso);
 	  end;
 writeln('Pressione para fechar');
 readkey;  
End.