Помогите с информатикой, составить блок-схему по паскаль 

1)
var x, y: real;
begin
     readln(x);
     y := sqrt(sqr(x) - 5 * x + 6) / (sqr(x) - 1);
     writeln('y(', x, ') = ', y);
end.

2)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a gt; 0) or (b gt; 0) or (c gt; 0)) then writeln(a + b + c)
        else
        begin
             if (b gt; a) then a := b;
             if (c gt; a) then a := c;
             writeln(a);
        end;
end.

3)
var a, b, c, m, i: real;
begin
     readln(a, b, c);
     m := a;
     if (b gt; m) then m := b;
     if (c gt; m) then m := c;
     if (m lt; 0) then
     begin
          m := 0;
          if (a lt; 0) then m := m + 1;
          if (b lt; 0) then m := m + 1;
          if (c lt; 0) then m := m + 1;
     end
     else 
     begin
          m := 0;
          if (a gt; 0) then m := m + 1;
          if (b gt; 0) then m := m + 1;
          if (c gt; 0) then m := m + 1;
     end;
     writeln(m);
end.

Фух... х)