1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел
от A до B включительно.
2)Даны натуральные числа от A до B(A<B). Найти произведение тех из них, которые делятся на 3 и не делятся на 4.
3)Ангелина узнав, что Боря занимается спортом, решила не отставать. Она каждый день делала от 3 до 5 упражнений на икры (вводится во время выполнения программы) и 5 упражнений на пресс. Сколько упражнений она сделала за 5, 10 и 13 дней. (количество упражнений на икры на каждый день вводится отдельно)

program task1;var  i, a, b, sum :integer;begin  readln(a,b);  sum:= 0;  for i:= a to b do    sum:= sum + sqr(i);  writeln(sum);end.program task2;var  i, a, b, p :integer;begin  readln(a,b);  p:= 1;  for i:= a to b do    if (i mod 3 = 0) and (i mod 4 <> 0) then      p:= p * i;  writeln(p);end.program task3;var  i, exercise, sum :integer;begin  for i:= 1 to 13 do  begin    readln(exercise);    sum:= sum + 5 + exercise;    if i = 5 then      writeln(sum);    if i = 10 then      writeln(sum);  end;  writeln(sum);end.