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

спам

связь

агрессия

звонок

Назад

Проверить

тогда связьпрекратитсяна начальной стадии

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.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a