Numeros Mayor En Progra
Enviado por abcdef1 • 13 de Febrero de 2013 • 364 Palabras (2 Páginas) • 407 Visitas
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >= 18 then
Begin
Writeln(´Mayor de Edad´);
End;
Readkey;
End
Program EdadMayor;
Uses crt;
Var
Edad: integer;
Begin
Clrscr;
Writeln(´Digite su edad:´);
Readln(edad);
If edad >=
...