Cum se rezolva in pascal?

Citește a , b
Dacă a>b
Pentru(i=a;i<=b;i++)
Cattimp (i>0)
S=S+i%10
i=i/10
Dacă(S==15)
Scrie i
Altfel
Dacă(b<a)
Pentru(i=b;i<=a;i++)
Cattimp (i>0)
S=S+i%10
i=i/10
Dacă(S==15)
Scrie i
Cred că e corect