Program Paast&Palved

var söök,jook,tunne:eluksvajalik;
ravim:parandamiseks;
arstiaeg:halvim;
lõpplahendus:misküllsaab;

begin
clrscr;
if tunne=OK then
jook:=kõik; {including mahl, limps, kohv, piim}
söök:=kõik; {including kartul, makaron, liha, maiustused, vorst, juust, leib}
ravim:=0
lõpplahendus:=mina terve, elu ilus.
else
jook:=kummelitee,vesi,jogurt;
söök:=jogurt,nipetnäpetsiitsealt; {in case of NOT good söök:=minimaalne(nälg) }
ravim:=smecta;
if tunne(kolmapäeval)= Not OK then
arstiaeg:=12:45;
{logic error: arsti vastuvõtt algab kolmapäeval kella ühest.
reason why the error occured: kõik arsti vastuvõtuajad kinni. }
lõpplahendus:=paast ja palved, mis loodetavasti viivad tervenemiseni;
readln;
end.