Не получается составить блок-схему.

[Zerg_4ik]

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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Vanta11a]

ГОСТы Вам в помощь. И Visio для визуализации.

Ваше "не получается" выглядит как "сделайте за меня", но я не хочу тратить свое время на решение школьных задачек халявщикам. Да, оно займет от силы 10 минут, но эти 10 минут стоят вполне определенных денег, которые Вам дарить просто так я не собираюсь.