[Информатика] Палиндромы

Данная программа определяет является ли слово палиндромом. То есть слово должно читаться справо и слева одинково .
uses crt;
var s, st: string;
i,j,k: integer;
begin
writeln('s=');
readln(s);
i:=1; j:=length(s);
while i<j do
begin
if s[i]=s[j] then
inc(k);
i:=i+1;
j:=j-1;
end;
if k=length(s) div 2
then writeln ('Палиндром')
else writeln ('Не палиндром');
end.

Онлайн построение функций

Очень удобный сервис для построения графиков функций любой сложности. Внизу программы есть подробное описание что к чему.

Ссылка

Сам я нашел этот сайт, когда мне нужно было построить график логарифмической функций. Это единственная программа, которая справилась с этой задачей лучше всего. Есть еще один удобный сервис, называется wolframalpha, но это скорее для решения, а графики строит отвратительно.