Помогите! блок-схемы будут одинаково выглядеть?

Помогите!блок-схемы будут одинаково выглядеть?
uses crt;
var x1,x2,x3,y:real;

procedure f(a,b:integer;var c:real);
begin
c:=(a+sin(b))/(b+sin(a));
end;

BEGIN
clrscr;
f(2,3,x1);
f(1,5,x2);
f(4,7,x3);
y:=x1+x2+x3;
writeln('y=',y:0:2);

repeat until keypressed;
END.

uses crt;
var y:real;

function f(a,b:integer):real;
var c: real;
begin
c:=(a+sin(b))/(b+sin(a));
f:=c;
end;

BEGIN
clrscr;
y:=f(2,3)+f(1,5)+f(4,7);
writeln('y=',y:0:2);

repeat until keypressed;
END.

  • если не лезть в дебри и упрощённо то одинаково

    если не упрощать то по разному. В первом варианте результаты сохраняются в переменных, потом они суммируются, а во втором варианте промежуточные переменные не используются, результаты функций сразу суммируются.