Дан массив. все его элементы умножить на последний элемент.

const

  n = 10; //количество элементов массива

var 

  a: array [1..n] of real;

  i: integer;

begin

  for i: = 1 to n do 

  begin

    writeln('введите ', i, ' элемент массива');

    readln(a[i]); //вводим очередной элемент массива

  end;

  write('исходный массив: ');

  for i: = 1 to n do 

    write(a[i], '   '); //выводим исходный массив

  writeln; //перевод на новую строку

  write('полученный массив: ');

  for i: = 1 to n do

  begin 

    a[i]: = a[i] * a[n]; //элемент массива умножаем на последний элемент

    write(a[i], '   '); //выводим полученный элемент массива

  end;

end.

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.