Процедура, блок-схема

[RMfan]

Приветствую! Пожалуйста помогите нарисовать блок схему на эту программу:

Program esep25;
uses crt;
var x1,x2,y1,y2,dl:real;
procedure pr_dl(x1,y1,x2,y2:real; var dl:real);
begin
  dl:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
  writeln('Введите координаты точки x1,y1');
  readln(x1,y1);
  writeln('Введите координаты второй точки x2,y2');
  readln(x2,y2);
  pr_dl(x1,y1,x2,y2,dl);
  writeln('Расстояние между двумя точками = ',dl:10:3);
end.

Сам пробывал, не получается!

[Alex11223]

pr_dl(x1,y1,x2,y2:real; var dl:real);

может лучше сделать вместо процедуры функцию, возвращающую то, что сейчас кладется в dl?) Да и название для pr_dl и dl получше придумать.

[RMfan]

может лучше сделать вместо процедуры функцию, возвращающую то, что сейчас кладется в dl?) Да и название для pr_dl и dl получше придумать.

неа, просто я отчет сдаю, уже программа та есть, а блок-схема на эту задачу нет, вот помоги плс нарисовать именно на эту в процедуре, а не в фукций, название так пойдет (pr_dl(x1,y1,x2,y2:real; var dl:real); )

[Alex11223]

Дык отчет же еще не сдал, ничто не мешает улучшить программу) Ты ж не для сдачи отчета учишься?)

[Mad_Cat]

так пойдет?