Напишите пожалуйста программу на паскале.

попробуй так... .
под рукой нет чтоб проверить.... так что если чё сама думай.
кстати с тебя $100

uses wincrt
var
a:char;
b,c:integer;
begin
readln('введите символ :',a);
writeln;
write('бинарное представление символа : ');
b = chr(a);

c = b/128;
write(str(c));
b = b - (c*128);

c = b/64;
write(str(c));
b = b - (c*64);

c = b/32;
write(str(c));
b = b - (c*32);

c = b/16;
write(str(c));
b = b - (c*16);

c = b/8;
write(str(c));
b = b - (c*8);

c = b/4;
write(str(c));
b = b - (c*4);

c = b/2;
write(str(c));
b = b - (c*2);

write(str(b));

writeln;
end.

Все намного проще. Пользуйся на здоровье)) )

Uses crt;
var
c: char;
begin
clrscr;
write ('Для завершения программы нажмите ESC (код - #27)');
repeat
c:=Readkey;
if c<>#0 then
begin
write ('КОД -',ord(c));
write (' КЛАВИШИ ',c);
end
else
begin
write ('РАСШИРЕННЫЙ КОД - ');
writeln ('0',ord (readkey) );
end;
until c=#27
end.

{Жду 10 балов))) }

var x:char;
y:integer;
s:string;
begin
readln(x);
y:=ord(x);
while(y>=1)do
begin
s:=inttostr(y mod 2)+s;
y:=y div 2;
end;
writeln(s)
end.
здесь программа находит код символа из такблицы ascii
если че уточните
в пред идущем ответе очень интересная строчка
b = chr(a);
при том что b:integer)))