Преобразовать приведённую ниже информация к табличному виду определить имя таблицы название каждого поля: 200, Толстой, Лениздат, Шолохов, Евгений Онегин, Тихий дон, Мир книги, 400, 500, Пушкин, Собачье сердце, Издательский дом Мысль, Лениздат, Булгаков, 300, Война и мир.

третье, там где пять

5> 4 и не 5> =6

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж