Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tp
Language: PASCAL
Code:
{SECCION DECLARATIVA}

program Fundicion;

{DEFINICION DE RECURSOS}

uses
{DEFINICION DE CONSTANTES}
const
{DECLARACION DE VARIABLES}
var
{SECCION ALGORTIMICA}
     {PARTE EJECUTABLE-DESARROLLO DE LA EJECUCION}
begin
     {Prologo}
        writeln('FUNDICION ACUNA');

        {Ingreso de datos desde el teclado}
        write('Ingrese numero de lote:');
        readln(lote);
        write('Ingrese fecha del reporte:');
        readln(fecha);
        write('Ingrese cantidad de barras del lote:');
        readln(cantbar);
        write('Longitud (mt) :');
        readln('Diametro (pulgadas):');

end.          
Comments: