Programa de Recetas de Comida

program comida;
 uses crt;
        var opn:char;
 procedure pasi;
  begin
     textmode(lo(lastmode)+font8x8);
     textcolor(red);
     writeln('Ingredientes para preparar Pasta Italiana:');
     writeln;
     writeln('- 225 gramos de pasta al gusto');
     writeln('- Una cda. de aceite de oliva');
     writeln('- Una cda. de manteca');
     writeln('- 80 gramos de berro, picado');
     writeln('- 40 gramos de manzana');
     writeln('- sal y pimienta');
     end;
 procedure calma;
   begin
    textmode(lo(lastmode)+font8x8);
     textcolor(blue);
   writeln('Ingredientes para preparar Caldo de Mariscos:  ');
   writeln;
   writeln('- 5 cabezas de mojarra o bagre,grandes ');
   writeln('- 1/2 kg. de camaron crudo');
   writeln('- 4 filetes de mojarra de granja ');
   writeln('- 1/2 kg.l de surtido de mariscos');
   writeln('- tomates ,3 picados y 1 para licuar');
   writeln('- cebolla picada');
   writeln('- manojo de cilantro, picado');
   writeln('- chile verde,picado');
   writeln('- zanahorias , picadas');
   writeln('- varita de apio , picada');
   writeln('- chile morr•n ,picado');
   writeln('- aceite al gusto');
   end;
 procedure enru;
    begin
       textmode(lo(lastmode)+font8x8);
     textcolor(green);
    writeln('Ingredientes para preparar Ensalada Rusa:');
    writeln;
    writeln('- 4 papas chicas');
    writeln('- 2 zanahorias');
    writeln('- 1 huevo');
    writeln('- 300 g.  de jam•n cocido');
    writeln('- 100 gramos de arvejas (judas verdes)');
    writeln('- 100 g. de guisantes');
    writeln('- 1 lim•n');
    writeln('- aceite de oliva');
    writeln('- sal y pimienta');
    end;
 procedure torti;
   begin
    textmode(lo(lastmode)+font8x8);
     textcolor(red);
   writeln('Ingredientes para preparar Torta Inglesa:');
   writeln;
   writeln('- 5 huevos separados');
   writeln('- 150 g. de azucar');
   writeln('- 45 g. de almendras molidas');
   writeln('- 50 g. de mantequilla');
   writeln('- 325 g. de az—car de pasteleria ');
   writeln('- 300 g. de chocolate amargo derretido');
   writeln('- 1 cucharadita de extracto de almendra');
   writeln('- 2 cucharadas de mantequilla derretida');
   writeln('- 35 g. de almendras tostadas');
   end;
     begin
  repeat
      writeln;
          textmode(lo(lastmode)+font8x8);
     textcolor(yellow);
      writeln('--Programa de Recetas -- ');
      writeln;
        textmode(lo(lastmode)+font8x8);
     textcolor(yellow);
  writeln('¨Que quiere preparar? :  ');
      writeln;
        textmode(lo(lastmode)+font8x8);
     textcolor(red);
       writeln('1)Pasta Italiana');
        textmode(lo(lastmode)+font8x8);
     textcolor(blue);
       writeln('2)Caldo de Mariscos');
        textmode(lo(lastmode)+font8x8);
     textcolor(red);
       writeln('3)Ensalada Rusa');
       textmode(lo(lastmode)+font8x8);
     textcolor(blue);
       writeln('4)Torta Inglesa');
       textmode(lo(lastmode)+font8x8);
     textcolor(green);
  writeln('5)Salir');
     readln(opn);
     case opn of
     '1':pasi;
     '2':calma;
     '3':enru;
     '4':torti;
     end;
     until opn ='5';
  end.