{INCLUDE - bemasolas}
{Elonye - nem kell beirni a programot}


{...}
{...}
{$I napok.pas}
{...}
{...}
BEGIN
  Clrscr;
  Repeat
    Write('Milyen nap van ma? ');
    Readln(szoveg);
    Ma:=beolvas(szoveg);
  Until ma<>v;
  Writeln('Az elozonap: ',kiiras(elozonap(ma)));
  Writeln('A kovetkezo nap: ',kiiras(kovnap(ma)));
  Writeln('Ez a nap a het ',hanyadiknap(ma),' napja');
  Readkey;
END.