Запишите внутреннее представление десятичных чисел, используя 8-разрядную ячейку : а) 64 б) -120 в) -96 г)57

64 - 01000000
-120 - 10001000
-96 - 10100000
57 - 00111001

Var n,m:interer;
Begin 
 write('Введите день') ;  Readln(d);
 write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then  writeln('День - 1',' Месяц - 3');  if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then if (d>1) and (d<31) then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end; if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
readln;
end.
НЕДОРАБОТАНА

Шифр Цезаря, самое тривиальное что приходит в голову. Для несведущих, замена прямого текста согласно таблице шифрования, которая формируется следующим образом: первому символу алфавита соответствует k+1-ый символ этого же алфавита, второму - k+2-ый, третьему - k+3-ый и так далее.
К самому заданию.
Ъуйшябъшцйф ёш здшёэкл Бджжгш аъюаьёжв йбйкэеу Ыишдыши.
В данном шифре алфавит смещён на 25 позиций.
Расшифровка:
Высаживаюсь на планету Илоока звёздной системы Гралгар.
(комментарий автора Космическим Рейнджерам за счастливое детство)