Пожалуйста, помогите построить блок - схемы алгоритмов для решения задач.

var  i, n: integer;
  p: real;
begin
  p:=1;
  readln(n);
  if n>2 then
    for i:=2 to n do
      p:=p*(1-1/sqr(i))
  writeln(p);
end.

var
  a, b, c, d: integer;
begin
  read(a, b, c, d);
  if (a>=b) or (b>=c) or (c>=d) then
  begin
    a:=sqr(a);
    b:=sqr(b);
    c:=sqr(c);
    d:=sqr(d);
  end;
  writeln('A=', a, ' B=', b, ' C=', c, ' D=', d)
end.

Большое Спасибо чувак