Напишите программу, которая вводит с клавиатуры целое число х – координату точки на числовой прямой и проверяет, принадлежит ли введенное число х заштрихованной области (Pascal)

Var   s : string; {функция проверки на палиндром} function palind (s : string ) : boolean; var   i : integer;   fl : boolean; begin   fl : = true;   for i : = 1 to length (s ) div 2 do     if s [i ]< > s [length (s ) -i + 1 ] then       fl : = false;   result : =fl end; {основная программа} begin   writeln ( 'введите ' );   readln (s );   if palind (s ) then     writeln ( 'данная строка является палиндромом! ' )   else     writeln ( 'данная строка не является палиндромом! ' ) end. без функции: var s : string; i : integer; palin : boolean; {основная программа} begin   writeln ( 'введите ' );   readln (s ); fl : = true;   for i : = 1 to length (s ) div 2 do     if s [i ]< > s [length (s ) -i + 1 ] then       fl : = false; if palin then     writeln ( 'данная строка является палиндромом! ' ) else     writeln ( 'данная строка не является палиндромом! ' ) end.

сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. первый член прогрессии: 20, разность прогрессии - 1. по формуле суммы n членов прогрессии составим программу.

[tex]s_{n=\frac{a_{1}+a_{n} }{2}*n[/tex]

решение на языке pascal:

var   n: real;

begin

  n : = (20 + 30) / 2 * 11;

  writeln(n);

end.

иное решение: с цикла просуммируем все числа от 20 до 30.

var

  i, s: integer;  

begin

  s : = 0;

  for i : = 20 to 30 do

    s : = s + i;

    writeln(s);

end.