превратить 100 в 10 систему и 2 систему, превратить 50 в 10 систему и 2 систему

нашла неправильный ответ, я хотела бы понять, где я ошиблась.

строка, состоящая из слов, разделенных пробелами (одним или несколькими).
Вывести строку, содержащую эти же слова, разделенные одним пробелом

2,5 руб. за каждый кВт. № п/п Клиент Кол-во электроэнергии (кВт) Оплата (руб) 1 Коржова 140 2 Давыдова 100 3 Козлов 80 4 Литвинов 50 5 Новиков 120

понять где

var
t,s,d,e,i: integer;
begin
for i:= 1000 to 9999 do
t:=i div 1000;
s:=(i div 100)mod 10 ;
d:=(i div 10) mod 10;
e:=i mod 10;
if ((t mod 2=0) or (s mod 2 =0) or (d mod 2 =0) or (e mod 2=0)) then writeln ('TRUE') else writeln ('FALSE');
end.

племени Мульти содержало 100 символов, а письмо племени Пульти — 50 символов. Сравните объёмы информации, содержащиеся в письмах.
Письмо Пульти = 75% Письма Мульти
Письмо Пульти = 50% Письма Мульти
Письмо Мульти = 75% Письма Пульти
Письмо Пульти = 60% Письма Мульти

program pasha;
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>555)and(a<=5555);
writeln('Данное число читается одинаково справа налево и слева направо');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end.