Trabalho algoritmo

Faça um algoritmo usando CASO e SE – Exercícios 26 e 27.

26 – Faça um algoritmo que leia seu peso na terra e o numero de um planeta e imprima o seu peso neste planeta.
1 – Mercúrio 0,37
2 – Vênus 0,88
3 – Marte 0,38
4 – Júpiter 2,64
5 – Saturno 1,15
------------------SE-------------------------------------------------------------------------------------------------------------
Declare Pes, Plan, Pes1 Real{
Digite (“Entre com o seu peso”);
Leia Pes;
Digite (“Entre com o Planeta: 1-Mercúrio, 2-Vênus, 3-Marte, 4-Júpiter, 5-Saturno”);
Leia Plan;{
Se (Plan==1)
Pes1=((Pes/10) x 0,37));
Senao se (Plan==2)
Pes1=((Pes/10)x 0,88));
Senao se (Plan==3)
Pes1=((Pes/10) x 0,38));
Senao se (Plan==4)
Pes1=((Pes/10) x 2,64));
Senao se (Plan==5)
Pes1=((Pes/10) x 1,15));
Senao
Imprima (“Este Planeta não existe”);}
Imprima (“O seu peso no Planeta será ´,Pes1);}

Ou

Declare Pes, Plan, Pes1 Real{
Digite (“Entre com o seu peso”);
Leia Pes;
Digite (“Entre com o Planeta: 1-Mercúrio, 2-Vênus, 3-Marte, 4-Júpiter, 5-Saturno”);
Leia Plan;{
Se (Plan==1)
Pes1=((Pes/10) x 0,37));
Imprima (“O seu peso no Planeta Mercurio será ´,Pes1);}
Senao se (Plan==2)
Pes1=((Pes/10)x 0,88));
Imprima (“O seu peso no Planeta Venus será ´,Pes1);}
Senao se (Plan==3)
Pes1=((Pes/10) x 0,38));
Imprima (“O seu peso no Planeta Marte será ´,Pes1);}
Senao se (Plan==4)
Pes1=((Pes/10) x 2,64));
Imprima (“O seu peso no Planeta Jupiter será ´,Pes1);}
Senao se (Plan==5)
Pes1=((Pes/10) x 1,15));
Imprima (“O seu peso no Planeta Saturno será ´,Pes1);}
Senao
Imprima (“Este Planeta não existe”);}}

------------------CASO---------------------------------------------------------------------------------------------------------
Declare Pes, Plan, Pes1 Real{
Digite (“Escolha um Planeta para descobrir seu peso nele”);
Digite (“1 - Mercúrio);
Digite (“2 - Venus);
Digite (“3 - Marte);
Digite (“4 - Jupiter);
Digite (“5 - Saturno);
Leia