Programacion para dormir
PROGRAM “Dormir”;
VAR sueño_x:char;
sueño1:boolean;
BEGIN
Writeln=3D”¿Tienes sueño?”;
Readln(sueño_x);
if sueño_x =3D “s” OR “y”
then sueño_1:=3Dtrue;
if sueño =3D true
then bostezo(4 sec);
PROGRAM “Dormir”;
VAR sueño_x:char;
sueño1:boolean;
BEGIN
Writeln=3D”¿Tienes sueño?”;
Readln(sueño_x);
if sueño_x =3D “s” OR “y”
then sueño_1:=3Dtrue;
if sueño =3D true
then bostezo(4 sec);