[Habetdin]

Вот что имеется на данный момент:

Код:

program Park;
var
r1,r2,k,x,y: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
read(input,r1,r2);
close(input);
k:=0;
for x:=r1+1 to r2-1 do
begin
y:=sqrt(sqr(r2)-sqr(x));
if sqr(x)+sqr(y)=sqr(r2) then dack(y);
k:=k+y;
for x:=0 to r1-1 do
begin
if sqr(x)+sqr(y)=sqr(r1) then k:=k-y;
end;
end;
k:=k*4;
rewrite(output);
writeln(output,k);
close(output);
end.

Вот только ошибка в 13 строке (error 26: type mismatch) - наверное из-за типа данных integer?