Вывести на экран 50 чисел от 1 до 999
Чтоб 40 были в строчку
А последние 10 в столбик
Через одномерный массив

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var a:=ArrRandom(50,1,999);  a.Take(40).Println;  a.Skip(40).Println(NewLine)end.Тестовое решение164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 67955195206597664762201452965298

var    i: integer;    a: array[1..50] of integer;begin    for i := 1 to 50 do     begin        a[i] := random(999);        write(a[i], ' ');        if i >= 40 then writeln;    end;end.