Решите ПОЖАЛУЙСТА 3,4,5 задание. Очень нужно до понедельника. Заранее СПАСИБО!!!)

3.var l:integer;beginwrite('L = '); readln(l);writeln(l,' см = ',l div 100,' м ',l mod 100,' см');end.Пример:L = 825825 см = 8 м 25 см4.var a:integer;beginwrite('a = '); readln(a);a:=abs(a);writeln('Среднее арифметическое цифр = ',(a div 10 + a mod 10)/2:4:1);end.Пример:a = 25Среднее арифметическое цифр = 3.55.var a,s:integer;beginwrite('a = '); readln(a);a:=abs(a);s:=(a div 100)+(a div 10 mod 10)+(a mod 10);writeln('Сумма цифр = ',s);end.Пример:a = 825Сумма цифр = 15