Информационный объем изображения I=k*i, где к- количество точек, i- глубина цвета.
Глубина цвета определяется из формулы N=2^i, где N-количество цветов
i=㏒₂N= ㏒₂256= 8 бит
k=25*25= 625
I=625*8= 5000 бит
5000 бит/8= 625 байт
Ваш алгорим не оптимален, совершенно незачем делать "<em>for k:=100 to 1000000000 do"</em>, т.к. по условию необходимо проверить лишь трехзначные числа.
uses crt;
var a,b,k:integer;
begin
for k:=100 to 999 do
if k mod 20 =0
then begin
a:= k div 20;
b:= k div 10;
if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k);
end;
end.
Разложение V и I делается для облегчения сокращения. Если что-то непонятно - пиши.