Дано целое число k (1<=k<=365).Определить каким днём недели будет k-ый день года, если 1 января понедельник.

да вы смеётесь...

найдите (K mod 7), значение этого выражения есть ответ, где 0-воскр,1-понед, и т.д.

А можно поподробней завтра сдавать училки иначе будет очень плохо

Подробнее??!!
Куда подробнее? Разве только mod - это взятие остатка от деления...

А еще лучше возьмите учебник, почитайте... полезно... 2 получите - тоже полезно - хорошо мозги прочищает...

Флейм удален, гость, еще раз такое повторится, будешь наказан, читай правила форума.

program day;
uses crt;
const
  week: array[1..7] of string[10] = ('Monday','Tuesday','Wensday','Thursday','friday','satuday','sunday');

var
  n,d:integer;

begin         clrscr    ;
write('nr ?? ');  readln(n);
d:=(n mod 7);
if d<>0 then writeln(week[d])
else writeln(week[7]);
readln;
end.