All pastes #477957 Raw Edit

Mine

public text v1 · immutable
·published 2007-05-08 22:39 UTC
rendered paste body
function checkCircleClick(X,Y: Integer): Boolean;
var
  midx: Integer;
  midy: Integer;
  r: Integer;
begin
  midx:=28;
  midy:=29;
  r:=24;
  if Sqr(midx-X)+Sqr(midy-Y)<=Sqr(r) then
    Result:=  True   // przed else'em ma nie by&#263; semicolon'a
  else
    Result:= False; // ale przed end'em powinien by&#263;
  end; // no i po end'zie - te&#380;
end;