Даны целые числа a,b,c. составьте дано,связь,найти,блок схему. (a+b)/2a-b*(a+c)

Program one;
var a,b,c:integer;
begin
write('введите три числа');
readln(a,b,c);
writeln((a+b)/2a-b*(a+c));
readln;
end.