2. с клавиатуры вводится трёхзначное число. вывести на экран двузначное число, состоящее из первой и последней цифры введенного числа. пример: ввели число 672. выводим на экран число 62.

Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n div 100 * 10) + n mod 10;
writeln('m = ',m);
end.

Пример:
n = 672
m = 62

Типы сканеров: 

Ручной сканер – для работы со сканером потребуется твёрдость руки и некоторый опыт. Применяя сканер, вам придется вручную перемещать его по картинке. Полоса изображения за один проход составляет 10 см, для появления всего изображения придется сделать два, три и более прохода. Сканер применяется для сканирования сброшюрованных в книгу иллюстраций и документов. Стоит такой сканер весьма дёшево.
Листовой сканер – при наводящих роликов лист бумаги с картинкой проходит через специальную щель, что часто становится причиной искривления изображения при вводе. После скачивания лист выкидывается из сканера.
Барабанный сканер – перед оцифровкой изображение фиксируется на ленту вращающегося барабана. Оптическая система замечает мельчайшие тонкости цветовых переходов и детали цвета. Стоят такие сканеры весьма дорого, подходят для коллективного пользования.

#include <iostream>

#include <time.h>

#include<cstdlib>

#include <iomanip>

using namespace std;  

int main() {

setlocale(LC_ALL, "rus");

srand(time(NULL));

int m, n; //ЧИСЛЛО СТРОК , СТОЛБЦОВ  

int S=1; // БУДУЩЕЕ ПРОИЗВЕДЕИЕ  

cin >> m >> n; // ВВОДИМ ИХ

int A[m][n];           //ОБЪЯВЛЯЕМ МААССИВ  

for (int i = 0; i < m; i++) {            // ЦИКЛ ЗАПОЛНЕНИЯ МАССИВА СЛУЧАЙНЫМИ ЧИСЛАМИ  

 for (int j = 0; j < n; j++) {

  A[i][j] = rand()%200 - 100;

 }

}

for (int i = 0; i < m; i++) {

 for (int j = 0; j < n; j++) {// ЦИКЛ ВЫПОЛНЕНИЯ УСЛОВИЯ  

  if (A[i][j]<0&&j%2==1){

   if (i%2==0){

    S=S*A[i][j];

   }

  }

 }

}

for (int i = 0; i < m; i++) {// ВЫВОД МАССИВА  

 for (int j = 0; j < n; j++) {

  cout << setw(3)<<A[i][j]<< "    ";  

 }

 cout << endl ;  

}

cout << endl << S;// ВЫВОД ПРОИЗВЕДЕНИЯ  

return 0 ;

}