program forum_1;
uses crt;
const
      n = 10;
var
      a: array[1..n] of real;
      i: integer;
      c: real;
      rkey: char;
begin
clrscr;
{sozdadim massiv}
writeln('Array: ');
for i := 1 to n do
      begin
      a[i] := random(10) + random;
      write(a[i]:2:2, ' ');
      end;

writeln(#10#13,'Press [Esc] to Exit...');
writeln('Sdvigaem po odnomu!');

repeat
{sam sdvig}
c := a[1];
for i := 1 to n - 1 do
      a[i] := a[i + 1];
a[n] := c;
{vivod}
writeln;
for i := 1 to n do
      write(a[i]:2:2, ' ');
rkey := readkey;
{sdvigaem po odnomu, poka ne nazhmem Escape}
until rkey = #27;

end.