Помогите нарисовать блок-схемы к 3 задачкам

[Анюта141]

program lab1;
var a,b,c,d,x,x1,x2:real;
begin
writeln ('это программа поиска корней квадратного уравнения. Введите a,b,c');
readln (a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then begin
x1:=(-b-sqrt(d))/2*a;
x2:=(-b+sqrt(d))/2*a;
writeln ('x1=',x1:5:2,' x2=',x2:5:2);
end
else if d=0 then begin
x:=(-b)/2*a;
writeln ('x=',x);
end
else writeln ('корней нет');
end.

[Анюта141]

Так же к этой:
program cod_sim;
uses crt;
var n,i,s,e:byte;
sim:char;
begin
clrscr;
writeln ('Задайте целое положительное число n=');
readln(n);
writeln ('Задайте целое положительное число e=');
readln(e);
s:=0;
for i:=1 to n do
begin
sim:=chr(i);
write (i,'-',sim,' ');
s:=s+1;
if s=e then
begin
s:=0;
writeln;
end;
end;
writeln ('Задайте целое положительное число n=');
end.

[Анюта141]

И вот этой:
program summa;
var s,n,i:real;
p:char;
begin
repeat
writeln ('Введите положительное число n');
readln (n);
s:=0;
i:=1;
writeln ('Номер шага','Значение суммы ряда');
while i<=n do
begin
s:=s+1/i;
i:=i+1;
writeln ('i=',i-1,'s=',s:8:3)
end;
writeln ('Конечный результат s=',s:8:3);
writeln ('Повторить расчет? Y/n');
readln (p);
until (p='n') or (p='N');
end.

[Анюта141]

Помогите пожалуйста, очень важно, пишите на почту: Lisenok141@yandex.ru