Сверху вниз, слева направо Даны два числа n и m. Создайте двумерный массив размером n×m и заполните его в соответствии с примером.

Данную задачу необходимо решить с генератора, который заполнит матрицу A. Вы должны отправить на проверку единственную строку вида:

A = [текст генератора]

Примеры
Ввод
5 6
Вывод
0 5 10 15 20 25
1 6 11 16 21 26
2 7 12 17 22 27
3 8 13 18 23 28
4 9 14 19 24 29

Program z;Var mas: array[1..1000000] of integer;i,n: integer;Beginread(n);   for i:= 1 to n do       read(mas[i]);end.

Ну смотри... Допустим мы берем Артёма. Мы знаем, что каждый из свидетелей дал только 1 правильное указание. Допустим Артем сказал, что машина не черная, и допустим это правильно. Выходит, раз это правильно (то, что машина не черная), то Глеб ошибся с первым показателем (цветом), но был прав со вторым (марка Рино). Следовательно, мы уже точно установили марку машины, разбираемся с цветом. Поскольку Владимир говорит, что машина Тойота, но мы то уже установили, что марка Рино, следовательно он правильно указал цвет. 
Из всего этого следует, что ответ: машина "Renault", серого цвета.  

Можете пожалуйста получше сфотографировать,а то плохо видно)

Var a,b,c,d:integer;
begin
readln(a);
b:=a mod 10;
c:=b mod 10;
d:= c mod 10;
writeln(b+c+d);
end.