Спасайте! Инфа 7 класс , поцелую щечку , отдал все баллы!
S:=s+1; s,i:integer; k>=0; read (p); x mod 10;