1) Program task3;
var a, ost, k: integer;
begin
write (Ввести число a ->'); read (a);
k:=0;
while a0 do begin
ost:= a mod 10;
if ost mod 2 = 0 then k:=k+1;
a := a div 10
end;
writeln (k); 
end. 

2)  Эту не знала как исправить, поэтому в основном просто переписала :)

Program task4;
var a, s, t, i, k: integer; n: real;
begin
write ('Введи кол-во дней -> ');
readln (a);
k:=0;
s:=0;
For i := 1 to a do
begin
write ('введи температуру в  ',i,-ый день');
readln(t);
if t>0 then
begin
k:=k+1;
s:=s+t;
end;
end;
writeln('Кол-во дней, в течение которых проводилось наблюдение ', a);
writeln('Кол-во дней с  t>0 = ', k);
n:=s/k;
writeln (Средняя температура в дни с  t>0 ',n)
end.