Dima$

VAR
A:ARRAY[1..10] of REAL;
i:INTEGER;
b:BOOLEAN;

BEGIN
b:=TRUE;
Randomize;
FOR i:=1 TO 10 DO
BEGIN
A[i]:=RANDOM*10-5;
WriteLn(A[i]:7:5);
END;
WriteLn;
{Ввод можно организовать иначе, напр. с консоли}
FOR i:=2 TO 10 DO
IF A[i-1]>A[i] THEN b:=FALSE;
IF b THEN WriteLn('Yes') ELSE WriteLn('No');
ReadLn;
END.