Втакой программе, пишет что "=" не применимо к var n, a, k: integer; begin readln(n, a); if (n+a) mod 2=0 or (n+a) mod 2=1 then writeln(k - (k div n) * n ) end.

Паскаль требует каждое логическое выражение выделять в "()", поэтому нужно написать
if ((n+a) mod 2 = 0) or ((n+a) mod 2 = 1)
 и будет тебе счастье

У тебя еще переменная "к" не реализована, а ты ее используешь - это еще 1 ошибка

1. Какова последовательность шагов для загрузки изображения в Paint.NET?

Команды работы с документами выполняются из меню «Файл». Команда «Открыть» позволяет выбрать и открыть уже нужный файл изображения.

2. Как изменить размер открытого изображения?

В графическом редакторе Paint.NET можно сделать как с изменением масштаба основной части изображения и его пропорций, так и с их сохранением.  

Изменения размера изображения с команды «Изменить размер»:

Открыть изображение в Paint.NET и открыть окно изменения размера (Изображение — Изменить размер…). В этом окне есть возможность установки качества изменения размера, задания размера в процентном выражении, а также указания абсолютного размера и разрешения изображения. Поэтому нам нужно просто ввести в поле «Ширина» или «Высота» нужное значение и нажать на кнопку «ОК».

Уменьшение размера изображения с команды «Размер полотна»:

Для вызова окна изменения размера полотна используется команда (Изображение — Размер полотна…). С инструмента закрепления можно указать ту область изображения, которая будет считаться главной при изменении размера полотна. Как правило такой областью является та, в которой размещен основной объект изображения. Нужно просто ввести в поле нужное значение и нажать на кнопку «ОК».  

3. Как сделать изображение вертикальным или горизонтальным?

Зайти в меню "Изображение" в Paint.NET и выбрать нужное «перевернуть горизонтально» или «перевернуть вертикально».  

4. Какие еще действия можно выполнять с открытыми изображениями?

Ввести текст, добавить Эффекты, изменить размеры изображения, седлать горизонтальным или вертикальным, сохранить файл в разных форматах, напечатать.  

Объяснение:

1) var

 a,s:integer;

begin

 writeln('введите a');

 readln(a);

 repeat

   if a  mod 2 =0 then s:=s+a mod 10;

   a:= a div 10;

 until a=0;

 writeln('сумма четных цифр числа а=',s);

end.

2)var a,b,i,r:integer;

begin

 r:=1;

 writeln('введите a');

 readln(a);

 writeln('введите b');

 readln(b);

 if (a mod 2 =0) and (b mod 2 = 0) then for  i:=1 to b do r:=r*a;

 if (a mod 2 =1) and (b mod 2 = 1) then for  i:=1 to a do r:=r*b;

if ((a mod 2 =0) and (b mod 2 = 0)) or ((a mod 2 =1) and (b mod 2 = 1))

then writeln(r);  

 end.