Question

Вывести на экран 13 целых случайных чисел от 5 до 9 и вещественных от -5 до 5 в два столбика

Answer 1

//PascalABC.Net
var
  i,m:integer;
  a:single;
begin
  Randomize;
  for i:=1 to 13 do begin
    m:=Random(5)+5;
    a:=10*Random-5;
    Writeln(m,a:5:0)
  end
end.

Тестовое решение:
9   -4
6    2
8   -3
8    4
8    4
6    4
6    5
9   -1
8   -2
7    2
8    0
5    2
7    2