Пожалуйста, помогите! ! Составьте или блок-схему или пошаговое описание программ:

1)Program MyO_o;
var n,i: integer;
s: longint;
fact: integer;
begin
repeat
write('N = '); readln(n);
until n > 0;
s := 0;
for i := 1 to n do
inc(s,i);
fact := 1;
for i := 1 to n do
if s mod i = 0 then
s := s div i
else
fact := fact*i;
write('N!/(1+...+N) = ',fact/s:0:2);
end.

2)Program MyO_o;
Uses graphABC ;
Var
driver,mode:integer;
x1, x2, x3, y1, y2, y3, S, P, s1, s2, s3: Real;

Begin
driver:=9;
mode:=2;
ReadLn (x1);
ReadLn (y1);
ReadLn (x2);
ReadLn (y2);
ReadLn (x3);
ReadLn (y3);
line(round(x1),round(y1),round(x2),round(y2));
line(round(x2),round(y2),round(x3),round(y3));
line(round(x3),round(y3),round(x1),round(y1));
S := 0.5 * ((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - y3));
WriteLn (S);
s1 := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
s2 := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
s3 := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
P := s1 + s2 + s3;
WriteLn (P);
ReadLn;
End.

1)Составьте программу, вычисляющую
отношение факториала числа N к сумме
целых чисел от 1 до N. Целое число N
должно задаваться вводом с клавиатуры с
проверкой соответствия вводимого числа.
2)Составьте программу, которая по
заданным координатам треугольника (ввод с
клавиатуры 6-ти вещественных чисел)
рассчитывает его периметр и площадь. И нарисовать этот ттреугольник