F90: Potências de 2

Problema

Fazer um programa capaz de exibir a pontência de 2 para um expoente informado pelo usuário.

Solução

PROGRAM aula1e4
	IMPLICIT NONE
	INTEGER :: a
	WRITE (*,*) "Digite o expoente: "
	READ (*,*) a
	WRITE (*,*) "O número 2 elevado a ",a," é igual a ",2**a
END PROGRAM aula1e4