Var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln('Ответ');
writeln(b);
end.
Разделение изображения на участки, в пределах которых значения тона либо усредняются, либо представлены одним из значений участка; имеет место при сканировании
С чем помоч? картинка не грузиться копец(