Запишите инструкцию: Вычисляющую значение переменной R по формуле (X2+Y2):2

Question

Запишите инструкцию:
Вычисляющую значение переменной R по формуле (X2+Y2):2

Answer 1

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