Ввести слово и число раз (ввод; паскаль, 3). вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль

Если недопонял, пиши и объясни. перепишу var text1: string; count,i: integer; begin write('введите слово: '); readln(text1); write('сколько раз мне его показать на экране? '); readln(count); for i: =1 to count do begin write(text1, ' ') end; end.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var v: =matrrandom(7,7,-15,15); v.println; var com: = v.row(2).aggregate(biginteger(,y)-> (x*y)); writeln('произведение эл-в 3ей строки = ', com); var cnt : = 0; foreach var x in v.row(2) do   if x > com then inc(cnt); writeln('количество элементов, больших чем это произведение = ', cnt); writeln('максимальный элемент 3го столбца = ', v.col(2).max); end. пример:       2  -4 -15  10  -1    2    6   15  -8  11    5  14  10  15     0  15 -10  13  -8 -13  14   14    6  13 -10    9    6 -12   -14    1    8  -9    1 -12  12   15    9  10  -7 -14    6  -3     9    9  -1 -14    1    1    3 произведение эл-в 3ей строки  = 0 количество элементов, больших чем это произведение = 3 максимальный элемент 3го столбца = 13 *****правил*****