кто может сделать.

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.​