Предмет: История, автор: Dasha40984

С клавиатуры вводиться два числа-текущая дата, например 17 3 (17 марта)
1)Вычислить сколько полных недель прошло с Нового года
2) Определить какой это день недели
(например 16 января, 16,1 прошло 2 недели с Нового года, 2 день недели)
СРОЧНО НУЖНО

raf1O5: program raf105;
var a,b:integer;
begin
write('Введите текущую дату (День и месяц) через пробел: ');
readln(a,b);
a:= a+(b-1)*30;
b:= a div 7;
writeln('С нового года прошло ',a,' дн. или ',b,' нед.');
a:= a-b*7;
writeln('Сегодня ',a,' день недели');
end.

Dasha40984: Это что?

Dasha40984: Прошлый мой вопрос?

raf1O5: Да, это ответ на вопрос выше

Dasha40984: Спасибо большое, но я уже сделала это

raf1O5: Окей