помогите пожалуйста.

[SC Muska]

Произвести обработку 15вещественных чисел-найти количество отрицательных чисел,а числа входящие в диапозон [0...10] возвести в квадрат
да да, я нуб в паскале заранее спасибо)

[Stilet]

Так подойтет?:

var k,i:integer;r:real;
begin
 for i:=1 to 15 do begin
  r:=random(20);
  if (r>=0)or(r<=10) then r:=sqr(r);
  if (r<0) then inc(k);
  write(f:5:2);
 end;
 writeln(k);
 readln;
end.

[Denager]

program Project1;
Const
  N   =   14;

Var
  A       :   Array[0..N] of Real;
  i       :   Integer;
  SubZero :   Integer;

begin
  SubZero:=0;
  For i:=0 to N do
    begin
      Write('Element massiva ['+IntToStr(i+1)+']=');
      Readln(a[i]);
    end;

  For i:=0 to N do
      If A[i]<0 then Inc(SubZero);
 Writeln('Koli4estvo otritsatel"nys elementov = '+IntToStr(SubZero));

  Writeln('Elementy massiva, vozvedennsye v kvadrat prinadlezhashie otrezky [0..10]');
  For i:=0 to N do
    If ((A[i]>=0) and (A[i]<=10)) then
      Writeln(FloatToStr(a[i]),'^2 = '+FloatToStr(sqr(a[i])));
readln;
end.