Помогите пожалуйста решить задачи в паскале. 1) найти сумму целых положительных…

1) uses crt; var a,b,i,sum: integer; beginread (a,b); for i: =a to b doif (i>0) and (i mod 4=0) then sum: =sum+i; write (sum); end.2) uses crt; var i,n: integer; s,tmp: string; beginread (n); tmp: =inttostr (n); for i: =length (tmp) downto 1 dos: =s+tmp[i]; write (s); end. Для ABC Pascal. Иначе функцию inttostr нужно будет заменить на str (n,tmp)