Заданы два натуральных числа. определить, является ли среднее арифметическое этих чисел целым числом. решить в паскале.

Var a,b:real;
begin
writeln('Vvedite a');read(a);
writeln('Vvedite b');read(b);
if (frac((a+b)/2)=0) then writeln('Da') else writeln('Net');
end.

p.s функция frac возвращает дробную часть числа.