нужны программы и блок-схемы

uses crt;
const nmax=20;
type mas=array[1..nmax] of real;
function Rasst(x1,y1,x2,y2:real):real;
begin
Rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x,y:mas;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:5:1);
writeln;
writeln;
mx:=Rasst(x[1],y[1],x[2],y[2]);
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(x[i],y[i],x[j],y[j])>mx then
 begin
  mx:=Rasst(x[i],y[i],x[j],y[j]);
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальное расстояние между точками ',imx,'-',jmx,' = ',mx:0:2);
readln
end.

uses crt;
function Fact(n:byte):longint;
begin
if n<2 then Fact:=1
else Fact:=Fact(n-1)*n;
end;
var s:longint;
    i:byte;
begin
clrscr;
s:=0;
for i:=1 to 5 do
s:=s+Fact(i*2);
write('Сумма факториалов четных чисел от 2 до 10 = ',s);
readln
end.