Program Unitos;  {2000. II. 17. - 3. prog. mod./2}
uses crt,felsorol;
var ma:Tnap;
    szoveg:string;

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.