1) Які операції із зображенням можна виконати за до маркерів змінення розміру? 2) Яку групу з тимчасової вкладки Формат потрібно обрати для вирізання фрагментів малюнків і встановлення їх висоти і ширини?
3) Яку групу з тимчасової вкладки Формат потрібно обрати, щоб задати тінь, нахил, розмивання, вигляд контурів та інші ефекти?
4) Яку групу з тимчасової вкладки Формат потрібно обрати для зміни яскравості й контрастності зображення?

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

конечно .pas! простой вопрос!