Eso, si lo tubiera de tarea de programacion 1 seria 
Code:
Program Olimpiadas;
{$apptype console}
Const
oro=4;
pla=2;
bro=1;
Var
Noro, NPlata, NBronce, POro, PPlata, PBronce, PTotal : Integer;
Begin
Write('Ingrese la cantidad de Medallas de Oro : '); Readln(NOro);
Write('Ingrese la cantidad de Medallas de Plata : '); Readln(NPlata);
Write('Ingrese la cantidad de Medallas de Bronce : '); Readln(NBronce);
POro:=NOro*oro;
PPlata:=NPlata*pla;
PBronce:=NBronce*bro;
PTotal:=POro+PPlata+PBronce;
Write('La cantidad total de puntos de este pais es : ',PTotal:10:2);
Readln;
End.
Si si, ya se ya se, pero necesitaba la practica
Bookmarks