01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / YYY

program simetrija;
uses crt;
var
  sim,check:boolean;
  s,w:string;
  i,k,j:integer;
  b:array[1..30] of integer;
  a:array[1..30] of string;

  BEGIN
  clrscr;
  k:=0;s:=' ';w:=' ';
  write('ўўҐ¤ЁвҐ ⥪бв:');
  readln(s);s:=s+' ';
  for i:=1 to length(s) do
  begin
  if s[i]<>' ' then w:=w+s[i]
  else begin
       k:=k+1;a[k]:=w;
       w:=' ';

       end;
  end;
  for i:=1 to k do
  begin
  b[i]:=length(a[i])-1;
  end;
  check:=true;
  write('бЁ¬¬ҐваЁз­лҐ б«®ў :');
  for i:=1 to k do
  begin
  sim:=true;
  for j:=1 to trunc (b[i]/2) do
       if a[i,j+1]<>a[i,b[i]-j+2]
       then sim:=false;
  if sim=true then
       write(a[i]);check:=false;
  end;
  if check=true then
  writeln('в Є®ўле ­Ґв!');
  readln;
END.