Помогите составить блок-схему для Turbo Basic

1) Программа такая:
input n
for i = 1 to n
input q(i) ' Вводим элементы массива
next i
for i = 1 to n
D = 9*q(i)*q(i) + 20 ' Вычисляем дискриминант. Он всегда положителен, поэтому корни всегда действительные.
x1 = (-3*q(i) + sqrt(D))/2 ' Вычисляем х1 и х2
x2 = (-3*q(i) - sqrt(D))/2
if (x1 > 0) AND (x2 > 0) then output q(i) ' Выводим q(i), если оба корня положительны
next i
end

2) Программа такая:
input p: input q
sq = sqrt(q)
i = 2 ' проверяем четность
ostq = q mod i ' остаток от деления q на i
if ostq = 0 then
ostp = p mod i ' остаток от деления p на i
if ostp <> 0 then
output i
end if
end if
for i = 3 to sq step 2 ' проверяем нечетные делители от 3 до корня из q.
ostq = q mod i ' остаток от деления q на i
if ost = 0 then
ostp = p mod i ' остаток от деления p на i
if ostp <> 0 then
output i
end if
end if
next i
end
А Александр напутал.

Задание 2 не понял а в первом
прямо в цикле печатай такие числа типо:
for i=1 to q do begin
if (x^2+3qi-5) >0 then
writeln (qi)
end;