я не помню паскаль:(

Объяснение:

вводишь число a

через if проверяешь условие

if(a>7) то a:=a*10

else if (a<7) то а:=а+7