Считаем кол-во символов
Их: 63
63*16 = 1008 бит
1008/8 = 126 байт
(listBox.SelectedItem as DataRowWiew)[ID_FILM]<span>;</span>
//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
<span>end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
<span>end.</span></span>