умоляю помогите с информатикой 10 класс все 3 задачи

1)
Program n1;
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if(a<100) and(a>9) and(a mod 10=3)
then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.

2)
Program n2;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if(a mod 3=0) and (a mod 10=5)
then k:=k+1;
readln(a);
end;
writeln(k);
end.

3)
Program n3;
var a: integer;
p: real;
begin
readln(a);
p:=1;
while a<>0 do
begin
if(a<100) and(a>9) and(a mod 10=3)
then p:=p*a;
readln(a);
end;
writeln(p);
end.

спасибо огромное