Двое друзей взяли книги в библиотеке. спросить у каждого сколько книг он взял и вынести имя того, у кого книг меньше. паскаль​

Не до конца понятно как именно надо заполнять потому два варианта begin       arrrandominteger(10, 1, 10).println;       arrgen(10, 1, x -> x + 1).println; end. или так const       n = 10; var       a: array[1..n] of integer;       i: integer; begin       for i : = 1 to n do       begin               a[i] : = i;               write(a[i], ' ');       end;       end.

// consoleapplication60.cpp: определяет точку входа для консольного приложения.// #include "stdafx.h"#include< conio.h> #include"iostream"#include "stdio.h"#include "time.h" using namespace std; int main(){ int x, y,c; setlocale(lc_all, "rus"); srand((unsigned)time(null)); x = rand() % 8 + 2; y = rand() % 8 + 2; cout < < "сколько будет   " < < x < < "*" < < y < < "? " < < "\n"; cout < < "введите ответ и нажмите enter   "; cin > > c; if (x*y == c) { cout < < "правильно\n";   } else { cout < < "вы ошиблись   " < < x < < "*" < < y < < "=" < < c;   } return 0; }