Помогите плиз) заранее спасибо (в паскале) 1.возвести число b в m степень. 2.возвести...

Question

Помогите плиз) заранее спасибо (в паскале)
1.возвести число b в m степень.
2.возвести число a в пятую степень.
3.дано натуральное число M вычислить сумму чисел кратных 6 от 4 до M.

Answer 1

Var b, m, a: real;
      mm: integer;

begin
read(b, m, a, mm);
writeln(power(b, m));
writeln(power(a, 5.0));
writeln(max(0, (12 + 6 * (mm div 6 - 1)) * (mm div 6) div 2));
end.