Ввести два числа с клавиатуры если среднее арифметическое чисел четное, то вывести его значение на экран

Если нужна программа на Паскале, то будет вот так: program sr_ar; var a, b, c: integer; degin write('a='); readln(a); write('b='); readln(b); c:=(a+b)/2; if c mod 2 = 0 then write('c=',c) end. Единственная проблема - некорректное условие, т.к. среднее арифметическое может быть не целым числом. а операция mod применима только к целым числам. И вообще, считается, что раз есть действие деление, то результат - число не целое, а вещественное.