:написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем"), например: "шалаш", "арозаупаланалапуазора", и выводит на экран ответ "да" или "нет".

Немного другое решение var  s : string; i, j, n : integer;   f : boolean; begin    readln(s);     n : = length(s);     i : = 1; j : = n;     f : = false;         while (i < = j) do      begin        if(s[i] = s[j])          then f : = true          else f : = false;         i : = i + 1;         j : = j - 1;         if not f          then break;       end;         if f      then write('палиндром')      else write('не палиндром'); end.

Program aaa; var s,s1: string; i: longint; begin writeln('введите строку'); read(s); for i: =1 to length(s) do    s1: =s[i]+s1; if s=s1 then writeln('да')  else writeln('нет') end.

#include

int main()

{

    float a = 0, b = 0;

    int k = 10;

    scanf("%f", & a);

    for(int i = 2; i < = k; i += 1)

    {

        scanf("%f", & b);

        if(b < = a)

        {

            printf("ne obrazuyut");

            return 0;

        }

        a = b;

    }

    printf("obrazuyut");

    return 0;

}

var

  s, ss: string;

  ls, lss, i, j: integer;

  flag: boolean;

begin

  readln(s);

  readln(ss);

  i : = 1;

  ls : = length(s);

  lss : = length(ss);

  flag : = false;

  while i < = ls - lss + 1 do

  begin

    if s[i] = ss[1] then

    begin

      flag : = true;

      for j : = 1 to lss - 1 do

        if s[i + j] < > ss[j + 1] then

        begin

          i : = i + j;

          flag : = false;

          break

        end;

      if flag then

      begin

        write('является');

        exit;

      end;

    end;

    i += 1;

  end;

  write('не является');

end.