uses crt;
const n=5;
var x,y,z:array[1..n] of single;
   i,j:integer;

Begin
  clrscr;
  randomize;
  writeln('X:');
  for i:=1 to n do
   begin
      x[i]:=random(10)-random(5);
      y[i]:=random(10);
      write(x[i]:2:0);
      ......
      ......
      [skipped]
      ......

uses crt;
const n=5;
var x,y,z:array[1..n] of single;
   i,j:integer;

Begin
  clrscr;
  randomize;
  writeln('X:');
  for i:=1 to n do
   begin
      x[i]:=random(10)-random(5);
      y[i]:=random(10);
      write(x[i]:2:0);
      write(' ');
   end;
   writeln;
   writeln('Y:');
   for i:=1 to n do
    begin
       write(y[i]:2:0);
       write(' ');
    end;
    readln;
    end.