Вопрос по информатике:

Помогите составит блок-схему, срочно
1. Найти сумму первых 10 натуральных чисел.
Program Z11
Var N,S: integer;
Begin
S:=0
For N:=1 to 10 S:=S+N;
Writeln ('сумма первых 10 натуральных чисел равна', S)
End
2. Упорядочение двух значение по возростанию
Program Z12
Var
x,y: integer;
v:integer
Begin
Write(Введите x, y:')
Readln(x,y);
If x>y then
Begin