##
var a := ReadMatrInteger(3,3);
a. Println;
Print('Количество элементов меньше пяти, но больше нуля равно',
a. ElementsByRow. Where(t -> t in 1. . 4). Count)
##
var Тетрадей := ReadInteger('Куплено тетрадей:');
var Обложек := ReadInteger('Куплено обложек :');
Print('Сумма покупки, руб:', 100 * Тетрадей + 50 * Обложек)