\documentclass[a4paper,10pt,pdftex,usenames,dvipsnames]{article}
%% package for fonts encoding -->
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
%% <--
\usepackage[french]{babel}  % language in use
%% Packages for fonts --->
\usepackage{marvosym}
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{amsthm}
\usepackage{wasysym}
\usepackage{pifont}
%% <---
\usepackage{geometry} % play with margins
\usepackage{multicol}  % use multicolumns
\usepackage{listings}  % typesetting computer program codes

\usepackage[francais,bloc,completemulti]{automultiplechoice}


\begin{document}

\AMCrandomseed{1237893}

%\setdefaultgroupmode{withoutreplacement} % permet le mélange des questions. Préparation des groupes

\element{ouverte}{
  \begin{question}{suite}
    On souhaite calculer la somme des termes de la suite $U_n=2^n$. Le début du programme est donné ci-dessous. Compléter le programme de manière à calculer la somme et à l'écrire à l'écran. La somme s'arrêtera au 20ème terme de la suite.
\begin{verbatim}
program somme_d_une_suite

implicit none

integer :: i, somme  ! i= compteur de la boucle do...enddo

                               ! somme=somme des termes

somme=0

...
\end{verbatim}

\AMCOpen{lines=20}{\wrongchoice[F]{f}\scoring{0}\wrongchoice[P]{p}\scoring{2.5}\correctchoice[J]{j}\scoring{5}}
  \end{question}
}

\exemplaire{1}{



\restituegroupe{ouverte}

\AMCdebutFormulaire

\formulaire

}

\end{document}
