Lời giải:
uses crt;
var p, q, r : integer;
begin
clrscr;
readln(p, q, r);
if q - p = r - q then write('YES')
else write('NO');
readln
end.
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết