Программа паскаль абс определить, является ли число с средним арифметическим чисел а и б (а,б,с-вводятся с клавиатуры). (написать программу).

Var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if c=(a+b)/2 then writeln('True') else writeln('False');
end.