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

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