Запишите инструкцию: вычисляющую значение переменной r по формуле (x2+y2): 2

Program adidos;
var X2,Y2,R:real;
begin
writeln('Введите X2 и Y2');
readln(X2);
readln(Y2);
R:=(X2+Y2)/2;
writeln('R=',R);
end.