По указанному адресу на сайте Kitap.kz (https://kitap.kz/ book/menn_atim_koj) скачай 2 страницы из произведения «Меня зовут Кожа» и вставь в текстовый редактор.

1. Сделай ссылку на одно слово с каждой страницы, описывающее образ персонажей, встречающихся на странице.

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

Uses   GraphABC;  
var   x, y: word;  
 i: byte;  
begin  
SetBrushStyle(bsclear);  
SetWindowWidth(590);  
SetWindowHeight(390);  
Rectangle(5, 5, 585, 385);  
x := 25;  
y := 25;  
Circle(565, 25, 20);  
Circle(565, 365, 20);  
Circle(25, 365, 20);  
repeat    
Circle(x, y, 20);    
if (x < 565) and (y = 25) then x := x + 20;    
if (x = 565) and (y < 365) then y := y + 20;    
if (y = 365) and (x > 25) then x := x - 20;    
if (x = 25) and (y > 25) then y := y - 20;  
until (x = 25) and (y = 25);  

Rectangle(50, 50, 540, 340);  
x := 115;  
for i := 1 to 8 do   begin    
Circle(x, 210, 6);    
Circle(x, 210, 40);    
Circle(x, 210, 45);    
x := x + 51;  
end;  
x := 95;  
for i := 1 to 11 do   begin    
y := 130;    
Line(x, y, x, y - 30);    
y := y - 30;    
Line(x, y, x + 30, y);    
x := x + 30;    
Line(x, y, x, y + 25);    
y := y + 25;    
Line(x, y, x - 20, y);    
x := x - 20;    
Line(x, y, x, y - 15);    
y := y - 15;    
Line(x, y, x + 10, y);    
x := x + 10;    
Line(x, y, x, y + 8);    
y := y + 8;    
Line(x, y, x - 3, y);    
x := x - 3;    
Line(x, y, x, y - 4);    
y := y - 4;    
Line(x, y, x - 3, y);    
x := x - 3;    
Line(x, y, x, y + 7);    
y := y + 7;    
Line(x, y, x + 10, y);    
x := x + 10;    
Line(x, y, x, y - 15);    
y := y - 15;    
Line(x, y, x - 18, y);    
x := x - 18;    
Line(x, y, x, y + 24);    
y := y + 24;    
Line(x, y, x + 30, y);    
x := x + 30;  
end;
end.

Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<
k := a;
while s < b do begins := s+k;<k := k+1;<end;writeln(k)end. 

если
a=15 b=36
ответ будет :15