Помогите пожалуйста кто может сделать. Даю 60 баллов
1.Определите значение переменной Sum после выполнения фрагмента программы:i:=0;Sum:=0;while i<4 do begin i:=i+1; Sum:= Sum+3*i; end; 2.Используя цикл while, напишите программу, вычисляющую сумму всех чётных чисел от 1 до введённого целого числа m.3.Определите, что будет выведено в результате работы программы. Запишите условие задачи, для решения которой составлен алгоритм.var m: integer;begin m:=154; while (n mod 16<>0) do m:=m+1; writeln (‘M= ’, m); end.