Запросить с клавиатуры 2 числа и вывести на экран. является ли их сумма кратной 5 паскаль

Var a, b: integer;
begin
readln(a, b);
writeln('Первое число = ', a);
writeln('Второе число = ', b);
if (a + b) mod 5 = 0 then
  writeln('Сумма двух чисел кратна пяти.')
else
  writeln('Сумма двух чисел не кратна пяти.');
end.