Подсчитать сумму чисел, больших заданного числа M из промежутка [A,B]. Найти среднее…

(Програма для ЦЕЛЫХ значений (M,A,B) Если else не сработает (а вдругтогда место else напиши-\ if (mb) then\) program M_suma; var m,a,b,i,s,h: integer; se: real; begins: =0; h: =0; writeln ('Vvedit [A,B] ta chislo M'); readln (a,b,m); if (m => a) and (m <= b) then beginfor i: =m to b dobegin s: =i+s; i: =i+1; h: =h+1; end; se: =s/h; writeln ('suma chisel-',s,' seredne ar.-',se); end; else writeln ('umova ne virna'); readlnend.