написал на js. по аналогии и на паскаль можно:
начало
var year = prompt('Какой сегодня год?'); ввод
var days = prompt('Сколько дней в текущем месяце?'); ввод
var today = prompt('Сегодняшнее число?'); ввод
var total = +days - +today; вычисление
alert('До конца месяца осталось: ' + total); вывод
конец
Если мощность алфавита N=256 символов, значит один символ "весит" i=8 бит=1 байт, т.к.N=2^i
Информационный объем текста=количество символов в тексте*"вес" символа ( I=K*i). Отсюда: K=I/i=1.5Кбайта/1байт=1.5*1024=1536 символов
12022, 1222, 989, 90899, 9000
Var a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
Write('y = ',(a*a-2*b-c*c)/(3*a*b));
End.