Если не ошибаюсь,то так))
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
Закрываем крышку , нажимаем кнопку включения , набор воды и порошка в барабан , раскрутка барабана , отжим , ну (можно добавить
выключить)
2, 3, 5, 8, 13, 21, 34, 55, 89