var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
3Мбайт = 3*1024*8 Кбит = 24576 Кбит
24576 / 2048 = 12 сек
t = 12 сек
Боря из Омска
Витя из Москвы
Гриша из Санкт-Петербурга
Егор из Кирова
Думаю так
Неформальный исполнитель-человек