1) Выписать цифры числа n, если эти цифры >=4 и <=8
2) Найти сумму цифр числа n, если цифры >=4, но <=8

pascal abc

var n,m,p,s:integer;beginwrite('n=');readln(n);m:=n;k:=0;write('цифры, которые >=4 и <=8 : ');while m<>0 do beginp:=m mod 10;m:=m div 10;if (p>=4) and (p<=8) then beginwrite(p,' ');s:=s+p;end;end;writeln;writeln('сумма этих цифр = ',s);end.