gotoxy::|[NLOG|main]|

()Wszystkie_wpisy()_____()Wpisy_z_tego_miesiaca()_____()20_ostatnich()
2001.10.21 01:01:00
link | komentarz (1)

program zycie_do_jutra;
uses
var jairaa:czlowieczek with chandra,

procedure sen(uzytkownik: czlowiek bardzo zmeczony,0);
var lozko, koldra, pizama, radio, okno: przedmioty w pokoju uzytkownika;

begin
turn on radio;
open okno;
put on uzytkownik pizama;
put uzytkownik into lozko;
use koldra on uzytkownik;
end;

procedure komputeruj (uzytkownik: czlowiek (czasami,0) ,0);
var klawiatura, fotel, monitor:sprzety;
komputer: najlepszy przyjaciel uzytkownika;
herbata:napoj;
palce, oczy:czesci ciala uzytkownika;
pragnienie:stan uzytkownika of boolean;

begin
sit down uzytkownik on the fotel;
put palce on klawiatura;
use oczy on monitor.
use palce on klawiatura;
if pragnienie= true then use herbata on uzytkownik
else end;
end;

procedure lekcje(uzytkownik: dziewczynka, ktora musi isc jutro do szkoly,0);
var notatka: array of string;
zeszyt, dlugopis:pomoce naukowe;
zadanie domowe z matematyki: array of string;
begin
hold zeszyt;
if zeszyt=polski then
begin
readln (notatka,0);
save notatka in memory;
end;
if zeszyt=matematyka then
begin
do zadanie domowe z matematyki:
begin
use dlugopis on zeszyt;
writeln (cyferki,0);
end;
end;
end;

begin
randomize;
clearmemory;
clearmind;
zmeczenie:=lekkie;
repeat
procedure (random (lekcje(jairaa,0), komputeruj(jairaa,0),0),0);
look at jairaa;
zmeczenie:=zmeczenie+ troche wieksze;
until zmeczenie=ostre;
procedure sen(jairaa,0);
end.