Помогите пожалуйста с программой на паскале.

[puporev]

(8*k+1-8)

-8 здесь лишнее. Вот я код нацарапал, вроде работает.

uses crt;
var s:string;
    K:byte;
    t,c:integer;
function Summ(z:byte):boolean;
var i,sm:byte;
begin
sm:=0; Summ:=false;
for i:=1 to (trunc(sqrt(8*z+1))-1) div 2 do
sm:=sm+i;
if sm=z then Summ:=true;
end;
begin
clrscr;
write('s=');readln(s);
write('K=');readln(K);
if K=1 then write('1')
else
  begin
   val(s[K],t,c);
   if Summ(t-1) then write('1')
   else write('0');
  end;
readln
end.