Farmacia en Turbo Pascal
11:10
Rasec
, Posted in
program FARMACIA;
uses crt;
var A,B,C,D,E,F,G:INTEGER;
procedure PASTILLAS;
begin
WRITELN('BIIENBENIDO LA PROGRAMA DE FAMACIA');
WRITELN;
WRITELN('MENU PRINCIPAL DE PASTILLAS');
WRITELN;
WRITELN('1.......DOLOR DE CABEZA');
WRITELN('2.......ESTOMAGO');
WRITELN('3.......INFECCIONES');
WRITELN('4.......CARDIACAS');
WRITELN('5.......VITAMINAS');
end;
PROCEDURE INYECCIONES;
begin
WRITELN('BIIENBENIDO LA PROGRAMA DE FAMACIA');
WRITELN;
WRITELN('MENU PRINCIPAL DE INYECCIONES');
WRITELN;
WRITELN('1.......DOLOR DE CABEZA');
WRITELN('2.......ESTOMAGO');
WRITELN('3.......INFECCIONES');
WRITELN('4.......CARDIACAS');
WRITELN('5.......VITAMINAS');
end;
0 Response to "Farmacia en Turbo Pascal"
Publicar un comentario