Question

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

Answer 1

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