Напишите, пожалуйста, две блок-схемы алгоритмов
 

1.Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае.

Program chisla;
Uses crt;
VAR
a,b:REAL;
BEGIN
Clrscr;
Write('a= '); ReadLn(a);
Write('b= '); ReadLn(b);
IF a<b THEN
BEGIN
a:=a*2;
b:=b*2;
END ELSE
BEGIN
a:=SQR(a);
b:=SQR(b);
END;
WriteLn('a= ',a);
WriteLn('b= ',b);
ReadLn;
END.



2.Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности.

CONST
n= 4; {11 n}
VAR
i:INTEGER;
A:ARRAY[1..n] of REAL;
Max:REAL;

BEGIN
Write('A[1]= ');
ReadLn(A[1]);
MAX:=A[1];
FOR i:=2 TO n DO
BEGIN
Write('A[',i,']= ');
ReadLn(A[i]);
IF A[i]>MAX THEN MAX:=A[i];
END;
WriteLn('MAX= ',MAX);
ReadLn;
END.

Вот блок-схемы, надеюсь все видно. Если что не так, говорите, исправим

плохо видно не мог бы ты поразборчевее нарисовать! плиз
ЗА схему спасибо!!!

Вот те же схемы, сделанные на компютере. пользуйтесь на здоровье

на чём ты так нарисовал, офигенно получилось
 

если можешь и есть время перерисуй пожалуйста вот эти схемыhttp://www.tehnari.ru/imagehosting/2...68de8edb1e.jpghttp://www.tehnari.ru/imagehosting/2...68dfd03b38.jpg

щас сделаю

Делал в Microsoft Office Visio 2007.
держи. сделал так же, как было в оригинале, то есть отставил условия 1, 2, 3, ввод надписи и т.п..