Programme pascal

Fermé
alitrabelsi1 Messages postés 1 Date d'inscription mardi 30 avril 2013 Statut Membre Dernière intervention 30 avril 2013 - 30 avril 2013 à 08:45
ou est les fautes de ce programme stp vite j'ai besoin de reponse j'ai un devoir:
program ali;
uses wincrt;
var mt1,mt2,mt3,moy:real;
nom,prenom:string;
begin
writeln('donnez le nom , prenom');
readln(nom , prenom);
moy:=(mt1+2*mt2+2*mt3)/5 ;
if moy>=10 then begin writeln('passabele');
end ;
begin
else if moy>12 then writeln('assez bien');
end;
begin
else if moy>14 then writeln ('bien');
end;
else if moy >16 then writeln ('trés bien');
end;
else writeln('faible');
end.