Пока пользователь вводит с клавиатуры чётные числа , суммируйте их . Результат выведите на экран
Pascol через цикл while

Огромное спосибо

var  num, sum: integer;begin  sum := 0;  num := 0;  while num mod 2 = 0 do  begin    sum := sum + num;    read(num);  end;  writeln(sum);end.