Могу предположить, что это - <em>Расширение</em> (файла). Например 123.txt (Текстовый файл с названием 123), 123.wmw (Видео файл).
Program zz;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a mod 2=0 then writeln(a,' -четное число')
else writeln(a,' -нечетное число');
<span>end.</span>
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt
Var y,x:real;
begin
x:=-2;
while x <= 2 do begin
y:=sqr(x)-2x;{Считаем значение функции}
writeln(y);{Выводим значение функции}
x:=x+0.5;{Наш шаг цикла}
end;
end.
для кодирования 16 символов потребуется 4 бита
2^4=16
40*4=160 бит=20 байт