Parcial algoritmos UTN

{
*   Parcial 1 Algoritmos - 12/05/2011 - Comisión 9 - UTN FRRO
*   ------------------------------------------------------------------------
*   Copyright (C) 2011, Sergio Milardovich <[email protected]>
*   This program is Free Software.
*
*   @package    Pascal-Problems
*   @license    http://www.gnu.org/copyleft/gpl.html GNU/GPL License 2.0
*   @author     Sergio Milardovich <[email protected]>
*   @link       http://www.milardovich.com.ar
}
{
* Nota:
* Se puede ver el enunciado acá:
* http://a2.sphotos.ak.fbcdn.net/hphotos-ak-snc6/227914_1550258897020_1851540001_936362_4920073_n.jpg
}
Program parc1;
Var
    i,k,cant_ven: integer;
    cod_art: char;
    prec_unit,total: real;
Begin
    For i:= 1 to 100 do
    Begin
        total := 0;
        For k := 1 to 5 do
        Begin
            Writeln('Ingrese el código del artículo: ');
            Read(cod_art);
            Writeln('Ingrese la cantidad vendida de dicho artículo: ');
            Read(cant_ven);
            Writeln('Ingrese el precio unitario: ');
            Read(prec_unit);
            Writeln('Cod art: '+cod_art,'\n Cant ven: ',cant_ven,'\n Precio unitario: ',prec_unit, '\n\n');
            total := total + (prec_unit*cant_ven);
        End;
        If total > 200 then
            total := total - (total*0.1);
        Writeln('El total es: ',total);
    End;
End.