Паскаль! напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, последняя цифра которых равна а и все число делится на в. последовательность чисел заканчивается числом 0. числа а и в вводятся до цикла. (должен быть цикл while)

Var
  a, b, num, sum: integer;

begin
  readln(a, b);
  readln(num);
  while num <> 0 do
  begin
    if (num mod 10 = a) or (num mod b = 0) then
      sum := sum + num;
    readln(num);
  end;
  writeln(sum)
end.