Evo, ovo ti je za +5 na kraju jer ispisuje i koji su to datumi u godini
Code:
program Za5;
uses crt;
function DayOfWeek(Day, Month, Year: Integer) : Integer;
var
century, yr, dw: Integer;
begin
if Month < 3 then
begin
Inc(Month, 10);
Dec(Year);
end
else
Dec(Month, 2);
century := Year div 100;
yr := year mod 100;
dw := (((26 * month - 2) div 10) + day + yr + (yr div 4) +
(century div 4) - (2 * century)) mod 7;
if dw < 0 then DayOfWeek := dw + 7
else DayOfWeek := dw;
end;
var dan,mjesec,godina,suma,x:integer;
s1,s2,s3:string;
datum:array [1..100] of string;
begin
clrscr;
writeln('Upisite godinu: ');
readln(godina);
suma:=0;
for mjesec:=1 to 12 do
for dan:=1 to 31 do
begin
if (DayOfWeek(dan,mjesec,godina)=5) and (dan=13) then
begin
inc(suma);
str(dan,s1);
str(mjesec,s2);
str(godina,s3);
datum[suma]:=s1+'.'+s2+'.'+s3+'.';
end;
end;
writeln('U zadanoj godini PETAKA 13 ima:', suma);
writeln('Datumi:');
for x:=1 to suma do
begin
writeln(datum[x]);
end;
readln;
end.