У меня получилось:
Аня - литература
Саша - география
Лена - информатика
Вася - история
Миша - математика
Var a, b, S, k: integer;beginS:=0;k:=0;readln(b);readln (a);while (a<>0) do beginif (a mod b =0)then begin S:=S+1;k:=k+a;end;readln (a);end;if (S>0) and (k>0)then writeln (S, ' ', k)else writeln ('таких чисел нет');end.
Program vj;
var x,a,b,c,h:integer;
begin
writeln('трёхзначное число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
h:=a+b+c;
writeln(' Сумма цифр этого трёхзначного числа=',h)
end.