Каждый символ в этой кодировке имеет инф.вес =8 бит =1 байт
Символов сего под запись 16, следовательно 16*1 байт =16 байт
Перевод: 1024- 10000000000, 673- 101010001, 513-10000000001, 718- 1011001110. Это перевод из десятичной системы в двоичное кодирование! Не за что!
12,7 * (600/2,54) = 3000 пикс ширина
12,7 * (1200/2,54) = 6000 пикс высота
3000 * 6000 * 4 = 72000000 бит / 8 / 1024 / 1024 = ~ 8 мегабайт
var
a: string;
begin
writeln('"Дверь открыта?" -(Да или Нет)');
readln(a);
if (a='Да') or (a='да') then
writeln('Тарелки Шрёдингера разбиты!')
else
if (a='Нет') or (a='нет') then
writeln('Тарелки Шрёдингера целы!');
end.