Ответ:

***3***

var a,b,x,c:integer;

begin

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

 readln(a,b);

 writeln('Всё четные числа на заданном интервале:');

 c:=b;

 for x:=a to c do

   if x mod 2 = 0 then

     writeln(x);

end.

***4***

var a,b,x,c:integer;

s:real;

begin

 writeln('Сумма квадратов всех чётных чисел на заданном интервале:');

 for x:=25 to 45 do

   if x mod 2 = 0 then begin

     s:=s+power(x,2);

     end;

     writeln(s);

end.

***5***

var a,b,x,c,k:integer;

s,srednee_arifmeti4eskoe:real;

begin

 k:=0;

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

 readln(a,b);

 writeln('Среднее арифметическое всех чисел, кратных 7 на заданном интервале:');

 c:=b;

 for x:=a to c do

   if x mod 7 = 0 then begin

     s:=s+x;

     k:=k+1;

     end;

     srednee_arifmeti4eskoe:=s/k;

     writeln(srednee_arifmeti4eskoe);

end.