959078484 ПОТОМУ ЧТО НУЖНО УМНОЖИТЬ НА ДВА, А ПОТОМ ПОДЕЛИТЬ ПОЛУЧИВШАЯСЯ ЧИСЛО НА 78 И ВОТ ОТВЕТ
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам