Var n, i: integer; begin randomize;
for i := 1 to 8 do begin n := random (39) - 15; write (n,;); end; n := random (39) - 15; write (n);end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.