Информатика Практика / 15

Program praktika15;
Uses CRT;
Var s: String;
n, count, k: Integer;
Begin
Write('Введите слово: ');
ReadLn(s);
n:=Length(s);
count:=0;
For k:= 0 to n-1 Do
Begin
If (s[1+k]=s[n-k])
Then count:=count+1;
End;
If (count=n)
Then
Begin
WriteLn('Данное слово является палиндромом');
ReadLn;
Exit;
End
Else
Begin
WriteLn('Данное слово не является палиндромом');
ReadLn;
Exit;
End;
End.