Задача по информатике:

Составить программу, в которой по дате (от 1 до 30) определяется, сколько дней осталось до конца месяца.

Ответы:

var b:byte,

begin

read (b),

write(30-b),

end.

если я правильно понял