Program Paste; uses crt, Calendar; var p,g:array[1..532]of byte; N:longint; mx,my, j, i:longint; d:byte; begin mx:=lo(windmax); my:=hi(windmax); for i:=1 to 532 do p[i]:=DataPask(i); g:=p; {for i:= 1 to 531 do for j:= i+1 to 532 do if g[i]>g[j]then begin d:=g[i];g[i]:=g[j];g[j]:=d;end; for i:=1 to 532 do write(i:6,':',DataStr(g[i]):13);} repeat clrscr; gotoxy((mx-16) div 2-1,my div 2-5); write('Introduceti anul-> '); read(N); Writeln({MonOfDays(n),' ',DayOfMon(n),}#$A,DataStr(DataPask(n)+13)); until readkey=#27; //readkey end.